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Le numéro 20 : à nouveau, un bulletin 
dans les temps. Les nombreux problè- 
mes que nous avons connus ces der- 
niers temps ont fait que le numéro 19 
a eu pratiquement deux mois de retard. 
Il nous a fallu changer d’outil pour 
gérer le fichier adhérents (l’ancien 
nous ayant laissé tomber), trouver le 
temps de trier, mettre sous enveloppe 
et faire expédier votre bulletin, et ce 
dans des conditions très précaires. 
Désormais, cette gestion sera facilitée 
car le club est à nouveau regroupé en 
un seul lieu. Depuis le 1 er novembre, 
l’adresse du club est la suivante : 

CLUB DES SHARPENTIERS 
c/o MICRO-ARCHI 
79, rue du Temple, 75003 PARIS 

(joignez une enveloppe timbrée 
pour la réponse) 

Notre numéro de téléphone est le sui- 
vant : (16) 1 42.74.07.68. 

Des permanences seront assurées en 
semaine (téléphonez au numéro ci- 
dessus pour connaître les dates et 
horaires d’ouverture du local). 


Le club, c’est de nouveaux services à 
la mesure de nos moyens et des aides 
que l’on reçoit. 

C’est plus de permanences, mais c’est 
aussi un serveur vidéotex dans lequel 
vous trouverez de nombreux renseigne- 
ments sur vos machines et sur le club 
(accédez souvent à ce service, que 
nous utiliserons pour vous faire 
connaître rapidement des actions 
ponctuelles). 

Vous y trouverez aussi une message- 
rie qui vous permettra de nous joindre 
rapidement. Les modalités d’accès à 
ce service vous sont données dans les 
pages suivantes. Des explications 
complètes feront l’objet d’un article 
dans le bulletin n° 21. 

Parlez du club autour de vous, après 
une courte période de problèmes et de 
stagnation, le club renaît. Si vous le 
pouvez, venez nous aider à faire vivre 
le club. Venez nombreux à nos 
réunions. 

A dans deux mois, nous nous retrouve- 
rons dans le bulletin n° 21 le 15 janvier 
1987. 

Luc BURELLER 


SHARP est une marque déposée. Le 
“CLUB DES SHARPENTIERS” et la 
revue “LE SHARPENTIER” sont tota- 
lement indépendants de L’importa- 
teur SBM et du groupe SHARP 
CORPORATION. 


La revue des Sharpentiers 
est éditée 

par le Club des Sharpentiers. 

Commission paritaire en cours 
Dépôt légal à parution 
Ce numéro a été tiré à 3 000 ex. 


Comme tous les ans, le 
SICOB d’automne nous 
amène sa moisson de nou- 
veaux produits. La gamme 
des PC SHARP se retrouve 
ainsi presque complète- 
ment rénovée. La plupart 
des modèles existant à ce 
jour se voit remplacé par 
une machine équivalente 
avec un nouveau «look» ou 
des performances supé- 
rieures pour un coût identi- 
que. Les extensions dispo- 


nibles (lecteur de disquette, carte mémoire) expliquent 
ce changement. Normalement, à l’heure où vous 
lirez ces lignes, ces PC devraient être commercia- 
lisés. 

PC 1246 S : c’est un PC 1246 avec une nouvelle présentation 
PC 1248 : 1246 S avec 8 Ko (enfin) ! 

PC 1262 : identique au 1261 (apparemment). 

PC 1403 : à mi-chemin entre le 1401 et le 1402 : écran de 24 caractères, 8 Ko, 

calcul matriciel, interface disquette (CE-12FD). 

PC 1425 : modèle scientifique surtout orienté Statistiques : carte Mev, 1 ligne 

de 24 caractères, lecteur de disquette (CE-12FD) en option. 
CE-2H32M : carte mémoire petit format de 32 Ko. 

CE-1601 N : lecteur optique de codes à barres pour PC 1600. Se branche à la 
place de la fibre optique. 

CE-12CAR : alimentation voiture (allume-cigare) pour PC 1600. 


& 



TOUJOURS SOFT TEXT... 


Il m’arrivait d’avoir plusieurs textes à 
écrire et il n’est pas prévu de les sau- 
vegarder ou de les imprimer en plu- 
sieurs parties. L’auteur ayant genti- 
ment laissé de la place à la fin du 
BASIC, les modifications à apporter se 
réaliseront facilement. Modifier le pro- 
gramme BASIC selon les données sui- 
vantes : 


600 :“L”CURSOR : PRINT “1 = LEC 
2= FUS 3 = SAV 4 = SAP”: 
A=VALINKEY$: IFA <1 ORA> 
4THEN “L” 

607:1F A = 4 GOSUB 950 : D = F : 
GOSUB 950 : L=F— D : GOTO 
650 

950.-CALL 256*AD + &C6 : BEEP 1 : 
F = PEEK &78E4*256 + PEEK 
&78E5 : RETURN 


UTILISATION DE LA NOUVELLE 
FONCTION 

Le texte étant entré, choisir sur le 
menu CAS puis SAP (sauvegarde par- 
tielle). Entrer le nom du fichier et pla- 
cer le magnétophone sur enregistre- 
ment. Après un ENTER, vous vous 
retrouvez sous l’éditeur. Placer alors le 
pavé clignotant sur le début du texte 
à sauver. Appuyer sur OFF comme 
pour sortir de l’éditeur. Après le BEEP, 
placer le curseur sur la fin du texte à 
sauver et appuyer sur la touche OFF. 


Le texte sera sauvegardé partiellement 
sur votre K7. 

A l’aide de cette possibilité de sauve- 
garde partielle, vous pourrez aussi 
intervertir des paragraphes puisque la 
fonction FUS est conservée. 

M. GUTI ERREZ Didier 




POUR LES FANATIQUES... 
DU FER A SOUDER 


Voici le schéma exact de la prise QCN 
60 broches du PC 1500 car elle n’est 
pas décrite dans le TRM. Pour savoir 
quels sont les signaux aux broches, 
voyez votre TRM. 


Suite à la réclamation d’un adhérent, 
nous conseillons à toute personne 
intéressée par le connecteur QCN de 


se procurer le TRM pour savoir au 
moins quels sont les signaux aux bro- 
ches du connecteur. D’ailleurs à ce 


propos, sur la liste dù connecteur 60 
broches page 103, il faut inverser DM El 
et DMEO. DME1 est donc en 56 et 
DMEO en 58. 

Christophe POULIN 
et Marc GIRON DOT 








INITIATION LH-5801 


Non, ce n’est pas encore 
la seconde partie, ce 
n’est pour l’instant que 
la suite du n° 1. 

Nous avons parlé dans l’initiation 
1 du POKE, mais par inadvertance 
j’ai sauté le POKE à plusieurs 
paramètres. La syntaxe est la sui- 
vante : 

POKE &AAAA,&VO,&V1 , &V2,.. 
&Vn. 

Où &AAAA représente une 
adresse, soit un nombre de 0 à 


65535 et &Vk une valeur de 0 à 255 
donc sur un octet. L’effet sera le 
suivant : 

&V0 sera mis en &AAAA 
&V1 sera mis en &AAAA + 1 
&V2 sera mis en &AAAA + 2 
&Vn sera mis en &AAAA + n. 

On s’en sert souvent pour taper.de 
longs programmes, par exemple 
ceux publiés dans le SHARPEN- 
TIER : 


Pour CLASSEMENT du n° 18 page 
28 : 

00C0:00 00 00 00 00 FD IA FD : D4 
00C8:1A 54 DE 25 D0 08 22 24 57 
Ce genre de listing indique qu’à 
l’adresse &00C0 il y a la valeur 
&00, de même qu’en &00C1, 
&00C2, &00C3, &00C4, en &00C5 il 
y a la valeur &FD, en &00C6 la 
valeur &1A, en &00C7 la valeur 


&FD. La valeur &D4 placée à droite 
de cette ligne correspond à une 
valeur de contrôle qui ne sert 
qu’avec le moniteur SHARP publié 
dans le n° 9. On passe donc à la 
ligne suivante, et on voit qu’en 
&00C8 il faut mettre la valeur &1 A. 
Cela se traduira par : 

POKE Â00C0, &00, &00, &00, &00, 
&00,&FD,&1A,&FD,&1A 
Passons à plus intéressant... 


INITIATION 
LH-5801 (II) 


Nous revoici donc ensemble pour une seconde partie où, 
comme promis, nous allons étudier à fond la MEV 
utilisateur. 


Tous les chiffres seront écrits en hexa- 
décimal avec entre parenthèses la 
conversion décimale. A partir du pro- 
chain article il n’y aura que la forme 
hexadécimale car nous entamerons 
alors l’étude du LM proprement dit et 
l’hexadécimal reflète mieux l’état des 
bits de la machine, puisque, soit un 
nombre HG en hexadécimal, G corres- 
pond directement aux bits 0 à 3 et H 4 
à 7. 


STRUCTURE DE LA MEV UTILISA- 
TEUR 

La MEV utilisateur de votre PC s’étend 
quelque part de l’adresse 0000(0) à 
l’adresse 6FFF(28671). Suivant votre 
module mémoire et votre version de 
PC, plus ou moins de cette zone sera 
effectivement occupée. Il a été publié 
dans le n° 12 page 47 la carte complète 
de la mémoire suivant le module uti- 


lisé. Votre PC sait à tout moment quel 
est le module qu’il possède en regar- 
dant l’octet en MEV système de n° 
7863 (30819). Celui-ci contient en effet 
le poids fort de l’adresse du premier 
octet de MEV utilisateur. Il convient de 
préciser ce qu’est exactement la 
notion de poids fort et de poids faible : 
Les adresses sont codées sur 16 bits 
numérotées de 15 à 0. La notation en 
hexadécimal : GHIJ reflète le mieux cet 
état : 

J = bits 0 à 3 
1= bits 4 à 7 
H = bits 8 à 11 
G = bits 12 à 15 

On définit le poids fort comme étant la 
valeur GH, donc correspondant aux 
bits 8 à 15 donc les plus élevés. Le 
poids faible sera la valeur IJ correspon- 
dant aux bits 0 à 7 donc les plus fai- 
bles. Si on travaille sur des nombres 
décimaux, la conversion est moins évi- 
dente mais revient au même : soit N 
une adresse : 

Poids fort de N = INT (N/256) 

Poids faible de N = N AND 255 


Nous savons à présent que la mémoire 
de nos PC commence en : PEEK 
(&7863)*256 

en effet le poids faible de l’adresse du 
début de la mémoire est toujours 0, 
ceci par contraintes techniques. 

Il nous reste à déterminer la fin de 
notre mémoire utilisateur. En fait, on 
déterminera plutôt le début de la 
mémoire qui n’est plus de la MEV utili- 
sateur, et on saura que l’adresse pré- 
cédente correspondra au dernier octet 
de la MEV utilisateur. 

Le poids fort de cette adresse est 
donné par l’octet 7864(30820), le poids 
faible étant toujours 0. Donc le dernier 
octet de MEV utilisateur sera : 

PEEK (&7864)*256— 1 

On appelera MM00—1 cette valeur et 
NN00 la valeur correspondant à PEEK 
(&7863)*256 donc au début de la MEV 
utilisateur. 

La fois prochaine nous commencerons 
l’étude du codage du mode réserve. 

Marc GIRONDOT 


BULLETIN D'INSCRIPTION AU CLUB DES SHARPENÏIERS 


□ Je m'inscris 

CHEQUE N° 

NOM 

.... PRÉNOM . . . . 

au CLUB DES SHARPENÏIERS 

BANQUE 

ADRESSE 


Je bénéficie de tous les 
avantages du CLUB 

DATE 

CODE POSTAL / VILLE 


Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 

SIGNATURE 

PAYS 

PROFESSION 

ÂGE ... . 

□ FRANCE : 240F 

□ ETRANGER: 300F 

n°20 

MACHINE POSSÉDÉE 

ACHETÉE CHEZ 

DEPUIS 



UTILISATION PRINCIPALE DE VOTRE MACHINE . . . . 


CLUB DES SHARPENÏIERS c/o MICRO-ARCHI 79, rue du Temple, 75003 PARIS 



PLOT X,Y 


Le PC 1260/61 n’a pas un 
écran graphique puisque 
composé de 48 matrices 
5x7 différentes. Mais 
qu’importe, car à l’instar 
des autres PC comme le 
1251, on peut adresser 
l’écran point par point par 
des POKE en BASIC ou par 
un programme en Langage 
Machine (1680 pts). 

C’est le but de cet utilitaire en LM. Ne 
vous laissez pas trompér, le listage est 
du BASIC, mais en fait que de POKE ! ! 
Avant d’introduire le chargeur Basic, 
faite NEW ou Ail Reset, puis EQU# 1. 


Le LM va se placer dans la mémoire 
réservée au tableur. Vous ne pourrez 
plus vous servir de la fonction tableur, 
mais en revanche le LM sera protégé 
du Basic et ineffaçable par NEW. Une 
fois cela fait, entrez le Basic, vérifiez- 
le et taper RUN. L’exemple situé à la 
fin du chargeur vous permettra de con- 
trôler le bon fonctionnement de la nou- 
velle fonction créée : il remplit toutes 
les matrices colonne par colonne. 

Vous pouvez faire NEW et utiliser le 
programme LM dans vos oeuvres Basic 
facilement, voici comment : 

Il faut mettre le display On par un CALL 
&043B, puis mettre dans la variable X 
la coordonnée X désirée (entre 0 et 
119), et dans Y la coordonnée Y dési- 
rée (entre 0 et 13). Le point choisi s’al- 
lumera instantanément par le CALL 
&4001. L’origine (0,0) est située en haut 
à gauche de l’écran. 

L’adaptation au PC 1260 s’effectue 
sans problèmes car le programme LM 
est relogeable, il suffit simplement de 
changer l’adresse à chaque POKE 


comme suit : &4001 se change en 
&5801, &4011 en &5811... &4081 en 
&5881. En fait seul change le poids fort 
&40 en &58. Le CALL sera alors CALL 
&5801. 

Il ne vous reste plus qu’à vous lancer 
dans les tracés de courbes et autres 
applications graphiques rendues faci- 
lement programmables. 

Patrice VOISIN 


AAAAAAAAAAVvWs/V\AAAAAAA 

5ï R EU PLOT X?Y 
6: REM VOISIN PATRICE 
10: POKE S: 4 Ô 0 1 ? & 8 8 ? S: 10? & 

65 J S: 0 9 î S: 5 T ? SI 1 J &0A? S 
58 ? S 6 6 ? S 0 1 ? 8c38 ? S 8 A ? S 
02? S0A ? SDE ? S57 
20: POKE S40il?S64?S0F?S 
44 ? &2U ? &U6 ? &57 ? &5'd ? S 
64? &0F? &BB? &89? &10? & 

65? SI i ? S57 ? S58 
30: POKE S4821 ? Si 1 ? S12? S 
6 6 ? S 0 2 ? S 3 8 ?_S 1 4 ? S 02 ? S 
64 ? SBB ? S57 ? S64 ? S0F ? S 
43? S34? S70? S0A 


40: POKE S4031 ? S2F ? S03? S 
1 1 ? S 1 3 ? S57 ? S58 ? S44 ? S 
20 ? S 1 8 ? S66 ? S0 1 ? S38 ? S 
1 1 ? S57 ? S64? S0F 
50: POKE S4841 ? SBB? S57 ? S 
58? S64? S0F? S43? S34? S 
70 ? S0A ? S2F ? S03 ? S2U ? S 
0 4 ? S 5 f ? S 5 8 ? S B B 
60: POKE S4051 ? S59? S67? S 
30 ? S3A? S0C ? S75 ? S3C ? S 
4 3 ? S 8 4 ? S B B ? S: 5 0 ? S 0 2 ? S 
28 ? SBB ? S2C ? S08 
70: POKE 44061 ? S43? S84? S 
BB? S50? S02? S20? SBB? S 
88 ? S 59 ? S67 ? S 07 ? S3 A ? S 
09 ? S75 ? S07 ? SBB 
80: POKE S4071 ? S84? S59? S 
74 ? S40 ? SBB ? S04 ? S88 ? S 
02 ? S06 ? SBB ? S45 ? S59 ? S 
34 ? S02 ? S80 ? SB2 
90: POKE S4081 ? S2F? S82? S 
BB? S57? S47 ? S53? S37 
95: REM * EXEMPLE * 

100: CLS : CALL S43B: FOR 
X=0 TO 119: FOR Y=0 
TO 13: CALL S4001: 

N EK T Y: N EK T K: FOR 
1=8 TO 1000: N EK T I 

WVVSA\Vv^AVA\^^^AAVWV 



THE ASTEROID 
ADVENTURE 


Ce jeu galactique est extrait d’une revue japonaise I/O 
et fonctionne sur les PC 1 251/55. Votre mission est cette 
fois-ci de sillonner l’espace à travers un nuage d’astéroï- 
des destructeurs. 


LIST RSV 


Dans le Sharpentier n° 9, 
nous avions présenté ce 
programme pour lister la 
zone réserve des PC 1 251 , 
il est cette fois adapté aux 
PC 1260/61. 

Gageons que vous saurez l’adapter à 
votre PC (si il a un mode RSV) grâce 
aux renseignements donnés dans nos 
tableaux sur la mémoire système à par- 
tir du n° 1 4. Taper le Basic et RUN don- 
nera sur écran le listage de la RSV, 
alors que PRINT = LPRINT suivi de 
GOTO «RSV» listera la RSV sur 
l’imprimante. 

Le Club 



ZyVVvWvVVVVVvVvVvVWsAAA 


1 : ‘'RSV-'' PRINT "RSV ,J : 
FOR 1=1 TO 48: X= 

PEEK 1 I +0.6 5 CF ; : IF ( 

:p0 -iNB :fb* or 

T -. d 0 ü N B K o-: d H .) 
GOSUB 4: PRINT h$?B 

2: IF :.,0 NEKT I 

3: PRINT * MEM v l STR$ 
(49-1): EN B 

4: R=K-64: IF X>&F0 LET 
R=R-96-49+<K=£:Fi>-23 
*(X=&F4) 

5: POKE S65C8? SF5? R? &3A 
? ü : P = INT ( (&65B0+I ) 
■•■■'256 ) : U=K65B0+I -256* 
P 

6: FOR J=1 TO 47:K= 

PEEK (&65CF+I+J) : IF 
■ CF h OR KCÊFl > AN B 
•r CS1 OR K S: 8 E > 

NEKT J 

7 : PO!- E L 6500 ? 0 ? 8 ? 0 ? 8 ? K 
B0? Q? P? J-l : RETURN 


RSV 

A: PEEK &: 6 5 B 0 
: LIST 

= : ■■••'S* (4+25/4-2) 

S: PRINT = LPRINT 
K : G 0 T 0 '' R S V '' 8 
G :?mr !ÏÏT?<> 

MEM 0 


VVVVvVvVvAVvVVWWWWVV 


Pour ce faire, tapez le programme 
Basic fourni. Certaines lignes saturent 
les 80 octets autorisés ; entrez-les en 
plusieurs fois, en validant tour à tour 
par ENTER et en éditant avec la flèche 
de curseur droit. Vérifiez bien les DATA 
et lancez le jeu par RUN. Une fenêtre 
apparaît, vous êtes à droite et un nuage 
d’astéroïdes fonce droit sur vous. Vous 
pouvez éviter les obstacles avec les 
touches 8 et 2, respectivement Haut et 
Bas par paliers successifs. Vous per- 
dez lorsqu’un astéroïde vous touche ; 
c’est le Crash spectaculaire. A ce 
moment le Score apparaît et on repart 
par un appui sur ENTER. 

Les POKE sont utilisés pour le gra- 
phisme à l’écran et le programme reste 
donc en Basic : une adaptation à d’au- 
tres PC est possible en connaissant la 
correspondance du CALL &11E0 (cf 


tableaux s/pgms) et les adresses de la 
ram vidéo (cf N° 12). 

Galactiquement vôtre. 


aaaaaamvsaavvvaaaaaaaa 


10: ü LEAR : Y=4: BIM B ( 7 ) 
: B( 1 ) = 1 : B (2) =2: B(3) = 
4 : B ( 4 ) = 8 : B ( 5 ) = 1 6 ! B ( 6 
) = 3 2 : B(7)=64 
15: POKE &F83A? 65? 127: 
POKE SF821 ? 127? 65 
20: FOR 0=0 TO 1: CALL 0: 
1 1E0: A$= INKEYï : IF 
A$ GOTO 40 


30:NEK! C: GO 

TO 70 

48; IF A$= u 8'' 

_E7 Y=Y-( Y 

>1): GOTO 

60 - 

58: IF A$=''2 “ 

_ET Y=Y+(Y 

60: POKE &F836 

? B ( Y ) +K ? B ( 

Y ) +Z ? B ( Y- 1 

)+B(Y+(Y<7 

)): GOSUB 

120: NEK T 



iïREAD D: IF D=-l 
RESTORE 200! B =8 
! : Z=X ! K=W : W=U s U = T ï T =S : 
S=R : R=Q : Q=P : P=0 ! 0=N : 
H=M ! f‘1=L ï L=K : K= J ; J= I : 
I=‘ri! H=G: G=F ! F=E 
Ü E=B 

ÜPOKE &F823>B,E,F,G,H 
? I ? J ? K ? L ? M > N 5 U j P , U j R 
, S ? T 5 U j W ? K + E Y J* , Z + B 
Y) ? B(Y-1)+B(Y+(Y<7) ) 
): GO SUE 128! V=V+18: 
GOTO 20 

Ü IF ( (K AND B< Y) )< >8) 
OR ((Z AND BiY) X >8) 
GOTO 148 
Ü RETURN 

umii 8! priht 

FOR 1=8 Tü %i 
CALL &11E8! POKE &F8 
28 , 8 , 8 ? 8 ? 8 j 8 > 8 > 28 , 32 
, 2 j 28 ? 0 ? 8 j 8 ? 8 > 8 
5: POKE SF828, 8? 8? 8? 8? 8 
, 8 ? 82 ? 8 , 33 ? 66 > 8 , 37 > 8 
,8,0,0, 0 

iîPÛKE &F828, 32? 4 ? 48? 6 
6 ? 33 j 8 ? 64 j 2 » 32 » 65 j 16 
>36*9,2! NEKT I 
j: wAIT : PRINT “'SCORE 
: “■“> STR$ V 
:i : WAIT 0: PRINT 

hîESTORE 

288: GOTO 18 
[ï: BATA 8 > 28 > 8, 65* 99 > 65 

> 8 > 28 > 8 > 8 > 34 > 85 > 34 > 8 

> 8> 28 > 8> 64 > 34 > 37 > 66 > 
34 > 37 > 66 > 8> 16,54,9 

U: BATA 31,9,54,16,8,8, 
8,4,72,48,128,48,72, 
4,8,8,8,8,33,27,37,3 
7,27,33,8,8,34,85 
ii: BATA 85,34,8,8,31,2, 
5, 114, 114, 5,2,31, 8,8 
,8,124,8,8,8,31,8,8, 
0,96,8,8,63,8,0,32,8 
ii: BATA 68,52,85, 119,85 

> 52 , 68 ,0,32,8,8,0, 8 , 

28 , 8 , 8 , 28 r 8 , 8 , 8 , 28 , 8 
,3, 112,8,8, 111,8,8,0 
3 ! BAT A 124,0,8,8,111,0 
, 8,8, 125,8, 8,8,31,4, 

18.4.31.0. 8.8.120.72 
,72,128,8,8,15,9,9 

3: BATA 15,8,8,128,72,7 
2, 120,8,8, 15,9,9, i 5 , 
8,8, 119,85, 119,65,65 
, 8,28,4,28, 8,65,34 
3: BATA 28, 17, 17,29, 17, 

17.16.32.64.8.0. 8.64 
,42,42,42,8,0,0, 14, 1 

8.35.2.6.8.0. 56.74 
3: BATA 74,74,8,8,124,1 

28,96,67,15,31,63,31 
,15,67,96,128,124,12 
8,96,67, 111,67,8,24 
Ei: BATA 61,61,24,8,64,1 
12,28,78,96, 16,9, 11, 
9 , 16,96,78,28, 112,64 


— ■SS 


INVERSE PARTIEL 


Comme son nom l’indique, ce programme LM permet des 
inversions vidéo (blanc sur noir) d’une partie de l’écran 
graphique de votre PC 1 350. 


Vous pouvez maintenant agrémenter 
vos programmes BASIC d’une présen- 
tation professionnelle. 

B.CAPLA 


Plus particulièrement, il permet d’inver 
ser ou de souligner un texte. Non relo- 
geable, le programme LM sous forme 
d’un DUMP se rentre en mémoire avec 
l’utilitaire fourni dans notre numéro 13. 

Ensuite l’utilisation est simple. Exem- 
ple : 

10 : WAIT 0 : CLS 

20 :PRINT “INVERSE PARTIEL” : CALL 
&6800 

Inverse sur l’écran la phrase INVERSE 
PARTIEL 

Si l’on remplace CALL &68Q0 par CALL 
&680D cette phrase INVERSE PARTIEL 
sera uniquement soulignée. Essayez 
pour vous en convaincre. 

Le texte à inverser peut également être 
placé à n’importe quel endroit de 
l’écran. Exemple : 

10: WAIT 0 : CLS 

20 : CURSOR 16,1 : PRINT “INVERSE 


DEZHEX 


Cette petite routine en lan- 
gage machine offre une 
conversion décimale- 
hexadécimale qui est 
désormais classique, mais 
avec un confort accru. 


En effet, ce programme permet d’affec- 
ter le résultat à une variable de carac- 
tère de votre choix. Et ce, sous Basic 
avec une gestion d’un pseudo mot clef, 
par passage des paramètres après un 
CALL (cf n° 16, p. 44). Le programme 
DEMO DEZHEX montre le fonctionne- 
ment très simple. Il faut bien sûr ren- 
trer le programme LM donné, sous 
forme de DUMP avec l’utilitaire du n° 
13, ou par la fonction POKE xxyy,zz,tt, 
etc..., maintes fois décrite. 


PARTIEL”; : CALL &680D : PRINT 
“ PAR”;: PRINT “CAPLA”: CALL 
&68Q0. 


PRÉCAUTIONS D’EMPLOI 

• Dans la fin de la ligne 20 exemple 2, 
si on remplace PRINT “ PAR ”;: PRINT 
“CAPLA”: CALL &6800 par PRINT 
“PAR ”;“ CAPLA ”: CALL &6800, c’est 
toute la phrase PAR CAPLA qui se 
retrouve inversée. 

• Lorsque l’on a inversé quelque 
chose à l’écran, ne jamais faire suivre 
d’un PRINT sans argument. Exemple, 
si on place à la suite d’un des deux pro- 
grammes précédents la ligne : 

30 : PRINT 

l’écran reste comme si aucun change- 
ment n’avait été effectué. Il faudra plu- 
tôt mettre : 

30 : PRINT “” 


ENSUITE LA SYNTAXE SERA : 

CALL &6000, variable $ = (expression 
num) 

avec 0< = expression num < = 65535, 
où l’expression peut être le résultat 
d’un calcul. 

La gestion des erreurs est comme pour 
le Basic : 

ERROR 1 à 9 : comme SHARP 
ERROR 0 : erreur de syntaxe. 

EXEMPLE : 

CALL &6000,Z$ = 255 donne Z$ = “FF” 
A = 10:B = 20 

CALL &6000, H E$ = (A + B) donne 
HE$ = “1E” 

Pour les amateurs d’adaptation, le pro- 
gramme n’est pas relogeable, et la cor- 
respondance des CALL en ROM 
interne et adresses système utilisés 
sera donnée dès que connue. Une 
astuce permet d’obtenir un résultat dif- 
férent dans un sous-programme, en 
changeant l’adresse d’appel ; le code 
de l’instruction étant camouflé comme 
opérande du mnémonique WAIT. 
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Exemple, en &6049 on a WAIT &DA si 
on fait CALL ou JP &6049, mais on a 
EXAB si on fait JP &604A (code &DA 
camouflé) 

Norbert ENNULAT 
et Klaus DITZE 
/VsAAAVVWVVA^VVVvVWNAAA 

DUMP DEZHEX 


000 24672C380723F0E6 
008 5B5B37B3609F6102 
010 FA543B0BDAB36204 
018 0209391523629028 
020 02DA106F26521124 
028 861B24673D292978 
030 80393B2BF63A3B2F 
038 106F24661A112657 
040 6700280702F52603 
048 074EDA995978605D 
050 985978605D23C33A 
058 0226D12D54345878 
060 60635B640F670A3A 
068 0374077430C33A03 
070 264EC23700000000 

10: REM DEMO DEZHEX 
20: CLS : CLEAR 
30: INPUT "DEZ : ” l D 
40: IF D<0 END 
50: CALL 8,6000, H$=D 
60: PRINT "HEX: " ; H$ 
70: GOTO 30 


DEZHEX 

6000 24 

6001 672C 
6003 t 3807 
6005 ' 23 
6006 F0E6 

6008 5B 

6009 5B 
600A 37 
600B B3 
600C 609F 
600E 6102 

6010 FA54 
6012 3B0B 

6014 DA 

6015 B3 

6016 6204 
6018 0209 
601A 3915 
601C 23 
601D 6290 
601F 2802 

6021 DA 

6022 106F26 

6025 52 

6026 1124 
6028 86 
6029 IB 
602A 24 
602B 673D 
602D 2929 
602F 788039 
6032 3B2B 
6034 F63A 
6036 3B2F 
6038 106F24 
603B 86 
603C IA 
603D 1126 
603F 57 
6040 6700 
6042 2807 
6044 02F5 

6046 26 

6047 0307 

6049 4EDA 
604B 99 
604C 59 
604D 78605D 

6050 98 

6051 59 

6052 78605D 

6055 23 

6056 C3 

6057 3A02 
6059 26 
605A DI 
605B 2D54 
605D 34 
605E 58 
605F 786063 

6062 5B 

6063 640F 
6065 670A 
6067 3A03 

6069 7407 
606B 7430 
606D C3 
606E 3A03 

6070 26 

6071 4EC2 
6073 37 


IXL 

CP IA 2C 
JRZP 600B 
CLA 

CAL 10E6 
POP 
POP 
RTN 
LP 33 
ANIM 9F 
OR IM 02 
CAL 1A54 
JRCM 6008 
EXAB 
LP 33 
TSIM 04 
LIA 09 
JRZM 6006 
CLA 

TSIM 90 
JRNZP 6022 
EXAB 

LIDP 6F26 
STD 

LIDL 24 
LP 06 
EXBD 
IXL 

CPI A 3D 
JRNZM 6005 
CALL 8039 
JRCM 6008 
CAL 163A 
JRCM 6008 
LIDP 6F24 
LP 06 
MUBD 
LIDL 26 
LDD 

CPI A 00 
JRNZP 604A 
LIA F5 
IVS 

LIB 07 
WAIT DA 
LP 19 
LDM 

CALL 605D 
LP 18 
LDM 

CALL 605D 

CLA 

DECB 

JRCP 605A 

IVS 

RC 

JRM 6008 

PUSH 

SWP 

CALL 6063 
POP 

ANIA 0F 
CPI A 0A 
JRCP 606B 
ADI A 07 
ADI A 30 
DECB 

JRCP 6072 
IVS 

NAIT C2 
RTN 


IL ETAIT UNE FOIS, 


UN PC DANS L’OUEST 


Vous l’avez deviné, ce jeu retrace une des plus célèbres 
scènes de western, à savoir le duel final ! Vous allez voir 
s’affronter en direct sur l’écran de votre PC deux cow- 
boys rivaux : vous à gauche et le PC à droite. 


MODE D’EMPLOI : 

Une fois le compte à rebours terminé, 
il vous faut guider la trajectoire de 
votre balle à travers le décor (2 cactus 
plus une échelle), afin de blesser votre 
adversaire qui mourra à la suite de 6 
blessures. Attention ! la difficulté inter- 
vient aux deux-tiers du parcours, 
lorsqu’un mur s’érige devant vous, pro- 
tégeant ainsi votre cible. Vous devez 
réussir à le franchir en passant par 
l’orifice qui évolue régulièrement dans 
le sens vertical. Si vous réussissez, une 
croix remplace l’adversaire et votre 
score augmente de 1 automatique- 
ment. Par contre, si votre balle heurte 
une partie du décor, c’est vous qui 
perdez. 


QUELQUES PRÉCISIONS : 

• Il y a deux niveaux de difficultés 
influant sur la largeur du mur. 

• La touche 7 permet de guider la balle 
vers le haut et la touche 1 vers le bas. 

• La partie s’arrête à 5, le PC désigne 
alors le vainqueur puis une nouvelle 
partie commence. 

• Le jeu se lance par DEF A. 

• Le programme fait 1843 octets. 

• Le décor s’efface au fur et à mesure 
de la progression de votre projectile, ne 
laissant apparaître que sa trajectoire. 

• Ne vous inquiétez pas si des parasi- 
tes s’agitent sur les bords de l’écran : 
c’est normal et dû au graphisme. 
Voilà, l’essentiel a été dit. Il ne me 
reste qu’à vous souhaiter un bon amu- 
sement ! 

Olivier SCHANEN 


5 : REPI +0L1VIER SCHANEN 


Y< >2 THEN 10 
20 : RESTORE 1 050 : Z=0 : V =0 
: GOTO 150 
30: IF V=3 OR Z=3 
RESTORE 1100 
35: IF Z=5 POKE 8=6045;. 0? 

0 j 0 ? 0 j 0 j 62 ? Si j 65 j 65 ? 
62) T ? 24 » 96) 24)7)127) 
9)9)9) 127:G0T0 2500 
40: IF V=5 POKE §=6045)0) 
0)0)0)0)62)65)65)65) 
62) 7) 24) 96) 24) 7: GOTO 
2700 

50: IF Z=4 POKE 8=6023) 12 
7)97)111)71)127 
60: IF V=4 POKE 8=6040) 12 
7)71)111)97)127 
70: IF Z=3 POKE 8=6823) 12 
7)85)85)65)127 
80: IF V=3 POKE 8=6848) 12 
7)65)85)85) 127 
90:1F Z=2 POKE 8=6023) 12 
7)69)85)81)127 
180: IF V=2 POKE 8=6948) 12 
7)81) 85) 69) 127 
110: IF Z=1 POKE 8=6023) 12 
7) 123)65) 127) 127 
120:1F V=1 POKE 8=6840) 12 
7)127)65)123)127 
130: IF Z=8 POKE 8=6823) 12 
7)65)93)65)127 
148: IF V=0 POKE 8=6840) 12 
7)65)93)65) 127 
145: FOR X=1 TO 308: NEXT 


150: HAIT 0: PR INT 

: CALi_ 

£5A2 

200: POKE £6823)80) 

186)31 

) 106)88 

210: POKE £6048)8)1 

86)31) 

106)8 

230: POKE £685E)24) 

16)126 

) 16)28 

240: POKE £684F)28) 

16) 126 

) 16)24 

250: POKE £6859» 127 

) 42) 12 

7: FOR X=i TO 6 

0: HEXT 

X 

260: POKE £6859)63) 

21)63: 

FOR X=1 TO 60: 

HEXT X 

270: POKE £6859)31) 

18)31: 

FOR X = 1 TO 68: 

HEXT X 

280: POKE £6014)127 

) 85) 85 

) 65) 127: FOR X= 

1 TO 5 

0: HEXT X 


300: POKE £6014)127)123)6 
5)127)127: FOR X=1 TO 
60: NEXT K 

368: POKE 8=6823) 186)31)42 
)68)4 

400: A=&6067: B=4 
508: A=A-1 : N=B>1 : N=B<64 
528: IF A=£6844 POKE 8=684 
8)127)123)97)123)127 
: FOR X=1 TO 580: NEXT 
X: Z=Z+1 : GOTO 38 
548: IF (B AH B (PEEK A)>< 
>8 POKE 8=6823) 127) 12 
3)97) 123) 127: FOR X=i 
TO 580: HEXT X:V=V+l: 
GOTO 38 

542: IF Y =2 THEN 558 
545: IF A< 8=6853 REAB B: 
POKE £6047 ) B: GOTO 56 
8 

550: IF A<£6853 REAB B: 
POKE £6847 ) B: POKE £6 
048) B 

560: POKE A) B 
600: E$=IHKEY$ 

780: IF E$ =, '7’'' THEN LET B 
=B/(N+1 > : GOTO 590 
888: IF E$= v r THEN LET B 
=B+(M+1 > : GOTO 598 
980: GOTO 588 

1850: BATA 125) 125) 125) 1 
23)123)119)119)119 
) 111) 111) 111)95)95 
) 95) 125) 125) 125 

1180: BATA 123)123)123)1 
19) 119) 111) 111) 111 
) 95) 95) 95 

1 150: BATA 125)125)125)1 
23)123)123)119)119 
) 119) 111) 111) 111)9 
5)95)95 

1280: BATA 125)125)125)1 
23)123)123)119)119 
) 119) 111) 111) 111)9 
5)95)95)125)125)12 
5 

2500: POKE £6859)79)41)2 
5)9)127)54)73)73)7 
3 ) 127)0)8)0) 8 ) 8 : 
FOR X=1 TO 40: HEXT 

2510: POKE £6823)68)186) 
31 ) 106) 68: FOR X=1 
TO 58: HEXT X 

2520: POKE £6823)80)186) 
31)186) 88: FOR X=1 
TO 58: HEXT X 

2530: POKE £6823)68)186) 
31 ) 186) 68: FOR X=1 
TO 588: HEXT X:G0T0 
10 

2708: POKE £6854)127)9)9 
) 9) 127)79)41)25)9) 
127)54)73)73)73)12 
7) 8) 0)0) 0)8) 0)0)8) 
0)0 

2880: POKE £6848)68)42)3 
1)42)68: FOR X=1 TO 
50: HEXT X 

2980: POKE £6848)16)106) 
31 ) 106) 16: FOR H=1 
TO 58: HEXT X 

3800: POKE £6048)68)42)3 
1 ) 42) 68: FOR X=1 TO 
508: HEXT X:G0T0 18 


298: POKE £6814) 127)69)85 
) 81 ) 127: FOR X=1 TO 6 
0: NEXT X 




tous 


INITIATION AU LM ESR-H 

( 6 e ) 


Pour vous permettre de comprendre davantage les pro> 
grammes LM ou d’en construire à votre tour, nous allons 
étudier en priorité une gamme d’instructions très impor- 
tante : INC et DEC. Nous reviendrons aux Moves et aux 
Échanges évolués la prochaine fois. 


Incrémenter ou décrémenter un regis- 
tre signifie simplement ajouter 1 à la 
valeur qu’il contient, respectivement 
retrancher 1. C’est-à-dire pour l’Accu, 
s’il contient la valeur &4F (79 en déc), 
en l’incrémentant A contiendra &50 (80 
en déc). De même, si on décrémente A, 
la valeur contenue sera &4E (78 en 
déc). Voilà pour le principe, nous ver- 
rons par la suite les instructions agis- 
sant comme indiqué. Avant de compli- 
quer les choses, rappelons que nous 
avons plusieurs sortes de registres ; 
notamment les registres d’index de la 
ram interne (par ex P) sur 7 bits, et les 
registres constituant cette ram interne 
(par ex A) sur 8 bits. Nous allons cons- 
tater que nous ne pouvons pas incré- 
menter ou décrémenter tous les regis- 
tres connus. Regardons du côté des 
registres d’index. Le plus usité est P, 
alors que Q et R ont chacun un rôle 
spécifique. En fait seul P a la possibi- 
lité de changer de valeur par une ins- 
truction INC ou DEC : 

INCP: code &50P + 1 ^P 
DECP : code &51 P-1 P 

Comme P est sur 7 bits, sa valeur max 
est &7F (127 d). Si P vaut &7F et que 
l’on exécute INCP alors P vaudra 0, car 
on n’a pas de 8 e bit pour passer à la 
valeur &80 (128 d). De même si P vaut 
0, DECP donnera &7F. De toutes 
façons, la ram va de 0 à &5F et donc 
les valeurs comprises entre &60 et &7F 
n’ont pas lieu d’être utilisées, car sans 
significations réelles. INCP et DECP 
n’influent sur aucuns Flags ou autres 
registres, nous allons voir que ce n’est 
plus le cas pour les registres sur 8 bits. 
Pour ce faire, il faut maintenant étudier 
la structure d’un octet, son comporte- 
ment quand on ajoute ou retranche 1 
et donc l’influence sur les flags. Les 
flags C et Z fonctionnent en fait très 
simplement. C indique le dépassement 
dans un sens ou dans l’autre (voir fig. 
1). Alors que Z indique le passage à la 
valeur 0. On se préoccupe des flags 


aux valeurs critiques suivantes : 0, &FF 
et 1. En effet, sur 8 bits, ajouter 1 à &FF 
(255) nous fait retourner à 0, et inver- 
sement enlever 1 à 0 donne &FF (255). 
Regardons en binaire comment cela 
s’écrit : 

La valeur &FF se note 11111111. 

Si on rajoute 1, on obtient 256 soit &100 
ou en base 2 : 1 0000 0000. 
iï nous faut donc 9 bits pour coder 256, 
or nous en avons 8. Seuls restent donc 
les bits 0 à 7. Le bit 8 qui n’existe pas 
est remplacé par le Flag C ; c’est lui le 
9 e bit ou qui en tient lieu. On l’appelle 
alors retenue ou en anglais Carry. De 
plus comme nous obtenons la valeur 0, 
le flag Z est mis lui aussi. 

En résumé : 

&FF + 1-&00,C = 1,Z=1. 

De même manière pour DEC : 

&00- 1-&FF,C = 1,Z = 0. 

Nous admettrons ce résultat pour l’ins- 
tant. Lors de l’étude des additions et 
soustractions, nous verrons en détail 
la représentation des nombres négatifs 
(en complément à 1 ou à 2 par ex.), ce 
n’est pas ici primordial. Pour informa- 
tion 1 est codé 0000 0001 en binaire. 
Le complément à 1 consiste à inverser 
les 0 avec les 1. —1 sera alors repré- 
senté par : 

1111 1110. 

Par ex. : 5"= (0000 0101)2. 

En complément à 1 : 

—5 = (1111 1010)2. 

Le complément à 2 s’obtient simple- 
ment en ajoutant 1 à la première forme. 
Alors —1 deviendra : 

11111111 

(C’est le &FF de &00-1 avec C = 1) 
et -5 = (1111 1011)2. 

Il est possible aussi sur 8 bits d’utili- 
ser le bit 7 pour indiquer un nombre 
négatif ; c’est le binaire signé, on va de 
—127 à +127. Le plus souvent nous 
utiliserons la représentation en com- 
plément à 2 pour sa facilité d’emploi. 
Cela permet avec une simple addition 
d’obtenir le bon résultat, avec dans le 
carry C la retenue négative. Nous y 
reviendrons une prochaine fois. Nous 


constaterons que les flags Z et C se 
comportent avec les mnémoniques du 
type AD ou SB, comme je l’ai décrit en 
général et pour INC et DEC. Le troi- 
sième cas se présente quand pn décré- 
mente 1 de la valeur 1, alors le Flag Z 
est mis : 

1 - 1 -0,C = 0,Z=1. 

Revenons maintenant à nos registres. 
Nous nous contentons d’ajouter ou de 
retrancher 1 avec les mnémoniques 
INCr et DECr où r est un registre 8 bits 
parmi : I, J, A, B, K, L, M, N. Voici donc 
les instructions correspondantes : 

INCI : code &40 1 + 1 -I 
INCJ : code &C0 J + 1 
INCA : code &42 A + 1 ->A 
INCB : code &C2 B + 1 - B 
INCK : code &48 K + 1 -► K 
INCL : code &C8 L + 1 -► L 
INCM : code &4A M + 1 - M 
INCN : code &CA N + 1 - N 

DECI : code &41 1-1 ^1 
DEC J : code &C1 J-1 - J 
DEÇA : code &43 A-1 - A 
DECB : code &C3 B-1 - B 
DECK : code &49 K-1 - K 
DECL : code &C9 L-1 - L 
DECM : code &4B M— 1 -► M 
DECN : code &CB N-1 - N 

Vous noterez la symétrie des codes 
pour passer d’un registre à un autre 
dans un couple et de INCr à DECr. 
Cette fois-ci les flags sont affectés 
dans les cas déjà vus. De plus le regis- 
tre Q est lui aussi modifié de manière 
interne; vraisemblablement pour 
indexer les registres utilisés. Alors pru- 
dence quant à l’utilisation de Q, avant 
ou après l’une de ces instructions. 


Pour finir, quelques exemples : 

LIA &00 INCA donne &01->A,C = 0,Z = 0 
LIA &00 DEÇA donne &FF->A,C = 1,Z=0 
LIA &FF INCA donne &00 A, C = 1 , Z = 1 
LIA &FF DEÇA donne &FE-*A,C=0,Z=0 
LIA &01 INCA donne &02 -► A, G = 0, Z = 0 
LIA &01 DEÇA donne &00 -► A, C = 0, Z = 1 
Les cas les plus spéciaux sont ici 
résumés. 

Nous avons abordé l’incrémentation et 
décrémentation des registres 8 bits, il 
s’avère que ce type d’instructions 
existe pour les registres 16 bits X et Y : 
IX, IY, DX, DY, et aussi IXL, DXL et IYS, 
DYS avec des particularités importan- 
tes. Ces mnémoniques feront l’objet 
d’une leçon particulière. La fois pro- 
chaine nous reviendrons si vous êtes 
sages, moi en forme et le bulletin plus 
épais, sur les Moves et Echanges 
simultanés de registres contigüs. 

A la leçon n° 7 ! 

Jean-François VIGNAUD 


UN 

PROGRAMME 

m 

A 

DÉVELOPPER? 

CONTACTEZ 
NOUS ! 




tous 


PRÉCISION SUR LES DATES 


Au fur et à mesure des réponses au petit concours du 
SHARPENTIER, des précisions nous ont été apportées. 
Ainsi M. BURGERT nous a signalé que les dates exactes 
qui n’existent pas sont : 

Italie : 5/10/1582 au 14/10/1582 
France : 10/12/1582 au 19/12/1582 


D’ailleurs, à ce ce propos, que s’est-il 
passé dans les autres pays ? Par exem- 
ple en AMÉRIQUE où les nouvelles ne 
pouvaient arriver, si elles arrivaient, 
qu’avec plusieurs mois de retard ? Y- 
a-t-il des lecteurs qui se sentent une 
âme d’historien pour débrouiller ce 
mystère ? Je peux tout de suite vous 
dire que cette particularité n’est pas 
citée dans les livres « L’histoire de la 
FRANCE et des FRANÇAIS au jour le 
jour ». On aurait pourtant pu espérer, 
vu le titre que cela soit au moins com- 
menté pour la FRANCE. 

Nous avons de plus eu une autre pré- 
cision de la part de M. ANDRÉ au sujet 
de l’an zéro. A-t-il existé ou non ? Et 
bien tout dépend de votre passion. 


Selon que vous êtes historien ou astro- 
nome, la réponse est différente. Les 
uns considèrent qu’avant l’an I il y avait 
l’an I avant J.C., et les autres considè- 
rent que c’était l’an 0, certainement 
pour faciliter les calculs de position de 
planètes. Une autre question : on sait 
que dans la mythologie, J.C. est né le 
25 décembre, mais en quelle année ? 
On pourrait imaginer que c’est en l’an 
0 ce qui correspond en l’an - 1 avant 
J.C., donc avant sa naissance. Bizarre ! 
Mais où cela devient comique, c’est 
qu’en fait J.C. serait né en 4 ou 5 avant 
J.C., son année de naissance ayant été 
désignée au VI e siècle par DENYS LE 
PETIT sans preuve. De plus cela ne 
serait pas le 25/12, mais au printemps ! 


Voici de plus quelques compléments 
historiques sur notre calendrier : 

Les Égyptiens donnaient 365 jours à 
une année. En 46 avant J.C., Jules 
César introduit l’année bissextile tous 
les 4 ans. Donc l’année du calendrier 
JULIEN avait 365,25 jours. La seconde 
réforme fut celle du pape GRÉGOIRE 
XIII qui définit le calendrier GRÉGO- 
RIEN sans année bissextile la dernière 
année d’un siècle sauf tous les 4 siè- 
cles. L’année a donc 365,2425 jours. 

Voici ce que cela donne en informati- 
que : 

Bissextile 

INT (A/1 00)/4 = I NT (INT (A/100)/4) 

Non bissextile 
A/100 = INT (A/100) 

Bissextile 
A/4 = INT (A/4) 

Les astronomes modernes donnent 
365.2422 jours à une année, et ce sont 
donc les MAYAS qui s’en rapprochent 
le plus avec 365.2420 jours par an. On 
peut de plus remarquer qu’être infor- 
maticien chez les Égyptiens aurait été 
un rêve, puisque tous leurs mois 
avaient le même nombre de jours. 

De plus voici une simplification par M. 
NOUAIL d’une des routines publiées 
dans le n° 17 : 


N = Nombre de jours d’un mois M 
d’une année A : 

N = ASC 

MID$(“&# &%&%&&%&%&”,M,1) — 
7 + (A/2 = INT (A/4)*M) 

On gagne un octet par rapport à la ver- 
sion précédente. On pourrait gagner un 
peu plus en POKANT dans la chaîne à 
la place de & le code 31, à la place de 
% le code 30$ 28 en remplacement de 
#, et dans ce cas là on supprime le 
-7, d’où gain d’encore 2 octets. 

Il ne reste plus qu’à faire une conver- 
sion de notre calendrier dans les 
autres, par exemple le calendrier révo- 
lutionnaire, et nous attendons donc 
vos propositions d’articles. 

A bientôt. 

1986 après J.C. 
M. Jacques ANDRÉ 
M. Albert BURGERT 
M. Marc GIRONDOT 
M. Nicolas NOUAIL 


RÉSULTATS 

DU 

CONCOURS 
N° 17 


Tout d’abord bravo à tous, 
nous avons reçu assez de 
réponses pour être con- 
fronté au délicat problème 
du classement. D’autant 
plus que nous avons reçu 
autant de résolutions diffé- 
rentes que de réponses, 
illustrant le célèbre pro- 
verbe informatique : 

« Il y a autant de solutions 
à un problème que de pro- 
grammeurs capables de lé 
résoudre ». 


En fait, les plus grosses divergences 
portaient sur les limites de validité du 
programme. Il y a une très grande diver- 
sité dans les réponses : 

Certains tiennent compte des années 
négatives, d’autres commencent en 
1/1/1, certains le 15/10/1582 et d’autres 
enfin le 1/3/1900 comme d’ailleurs tous 
les programmes de l’article du n° 17. 

Vous conviendrez donc qu’il était très 
difficile de faire une sélection, et c’est 
pourquoi nous avons choisi de ne pas 
en faire. Vous trouverez tous les pro- 
grammes qui nous ont été envoyés. En 
fait, 14/7/1789 + 70000 donne le 
10/3/1981. On trouvait le 8/3/1981 avec 
les programmes qui ne marchent que 
jusqu’au 1/3/1900. Les tests de rapidité 
ont été effectués sur PC-1500 avec ce 
programme : 

1 : WAIT 0 : TIME = O : FOR I = OTO 49 
: J = 14 : M = 7 : A = 1789 : N = 70000 
: GOSUB 10 : PRINT J;M;A ; N EXT I 
: WAIT : PRINT TIME 

Sachant qu’il met 4 secondes pour 
s’exécuter à vide. La longueur du pro- 
gramme a aussi été calculée sur 
PC-1500, où un mot-clé prend deux 
octets. J’ai parfois modifié le listing 
original pour qu’il réponde exactement 
à la (Question. 


Je pense que personne ne pourra con- 
tester la première place à M. ANDRÉ 
qui a fait un programme utilisant seu- 
lement 2 variables B et C, relativement 
court, 326 octets et allant vite, 0,64 
secondes. Ce qui fait sa grande force, 
c’est qu’il fonctionne à partir du 1.1.1 

Nous mettrons tous les autres pro- 
grammes ex-aequo tant il est difficile 
de faire un classement. Toutefois, 
nous féliciterons principalement Nico- 
las NOUAIL qui a fait le programme le 
plus court, 174 octets, et utilisant le 
moins de variables, 0. Toujours dans 
les félicitations, M. TOUSSAINT est à 
citer car c’est son programme qui est 
le plus rapide sur le test : 0,42 seconde. 


Voici le tableau complet : 


nom 

octets 

domaine 

nb temps 
var. 

ANDRÉ 

326 

1/1/1 

2 

0.64 

NOUAIL 

174 

1/3/1900 

0 

0.6 

TOUSSAINT 

201 

1/3/1900 

1 

0.42 

DALLET 

518 

Infini 

7 

0.6 

BURGERT 

405 

15/10/1582 4 

1.58 

DOIDY 

388 

1/3/1900 

3 

23 


Bravo à tous... 

Le Club 


De même M. DALLET est le meilleur 
pour ce qui est du domaine de travail 
puisqu’il travaille aussi sur les années 
négatives en sautant l’année 0. 

AAA^AVWWVVVsWA\VvVVV\AA/SAA^AA/V\^AA/VVVV\VVV\AA 

Mr ANDRE 


950: B=A+M^ ÎOO+J- 1E4-1582. 1 005 , C=M< 3 , M=C* 1 2+M+ 1 , A=A-C 
955: A=( B> = 0 )*( INT (INT ( A' 1 00 )'• 4 )- I NT ( A/ 1 00 ) )+ I NT (365.25 
* A ) — 2*( B< O J 

960 : A = A+ I NT ( 30 . 6*M ) + J + N , J= I NT ( A - 36524 . 25-4 ) 

965: B = A+1722521 + ( A>578163 )*( 1+J-INT ( J 4 ) ), C=INT ( B"365. 25 
3343 ) 

970: M=INT ( 365 . 25*C ) , N= I NT ( ( B — M )^'30 . 600 1 ) » J = B — M— I NT (30.6 
00 1 *N ),M = H-1-12*(N>13.5 ) 

975: A = C — 47 1 6+ ( M<2. 5 ): RETURN 


vVVWVvVA/VWWWVWNAA/VWVVvVsAAAAAAAaavWVWVVV 




FAITES DES ÉCONOMIES 


2 : H = I NT { 365. 25* ( A-( M<3 3 3 3+J+IHT ( 30 . 6* ( M+ 1 + 1 2* 

— 63. A = I H T C H' 365. 25 3. M=1 

3 s J= I NT ( H + 1 -A*365. 25 3 

4 : N = A S C MID* ( 1 )-?+( A/2=INT ( (■ 

IF H < J L E T M=M+1 : J = J-H: GOTO 4 
5 : RETURN 


10: H = I H T ( 365. 25* ( A-( M<3 3 3 3+J+IHT ( 30. 6*( f-1+l + 12*( M<3 3 3 3 + H 
2 O : A = I H T < H.' 365 . 25 3 : P = H- I HT C A*365 . 25 3 : M= I HT (P/(365+(A/4 
= I HT ( A." 4 3 3 3*1 0 3 

30: J = H — I H T ( 30. 6*( M+1 + 12-M M<3 ) 3 3-IHT ( 365. 25*( A-( J=G 3 3 3 
40: J=J+29*( J = 0 3: M = M-( J = 0 3: R E T U R H 


D=J+10O*M+lE4*A 
IF A = 0 G O T O "JP" 

IF A< OLE T A=A+1 
IF M< 3LET A=A— 1 : M = M + 1 2 
: I F D > = 1 582 101 5GOTO “GREG" 

: IF B< 15821 005GDTD "JUL" 

: “ JP”PRIHT n Jour_n_exlstant_Pas. . . ":EHD 
: M GREG *• U= I HT ( A ' 1 OO 3: W = 2-U+ I HT ( Vs 4 3 

: " JUL " J= I NT C 365. 25*A 3+IHT ( 30 . 600 1 * ( M + 1 3 3 + J + W + 1 720995 
: J = J + H 

: I F J< 2299 161 LET T = J : GOTO "Tl" 

: R= I HT ( ( J- 186721 6. 25 3-/36524. 25 3 

: T=J+1+R-IHT ( R/4 3 

: "Tl "U = T+ 1524 

: 0=1 HT ( £ U-122. 1 3-/365. 25 3 

: H = I H T (365.25*0 3 

: X = I H T ( ( U — H 3-/30 . 600 1 3 

:J = U — M-IHT ( 30 . 600 1 *X 3 

s M = X — 1 : IF X > 1 3 . 5LET M=X-13 

:A=U-4716ïIF M<2.5LET A=0-4715 

: IF A< 1 LET A=A-1 

: RETURH 


200 : GOSUB 5 1 O : P= I : H=H + P 

400: B =365. 2426/ A=IHT (H/B):M=IHT ( C H— A*B 3/' 30 . 6 3 : J = I HT ( H-A 
*B-M*30. 6 3 

410: A = A+1 : r : 1=M+l : GOSUB 600 

420: B=28+UAL MIB* ("3"+STR$ F+ " 3232332323 ", M , 1 3 : I F J>B 
LET M = M+1 : J = J — B: IF M > 1 2LET M=l:A=A+l 
430 : GOSUB 510: IF IOHLET J = J + H-I:GOTO 420 
440: RETURH 

510* 1=0: IF M >2LET I = I HT ( 30 . 6*M + . 6 3-33 : GOSUB 600:I=I+F 
520: IF M = 2 L E T 1=31 

530: B=A— 1 : I = I + J+B*365+ I HT (B/4 3-IHT (B/10O3 + INT (B-400 3: 
RETURH 

600 : F = 0 : I F IHT (A/4 )=ft/4LET F=1:IF IHT ( A-/ 1 OO 3= A^ 1 OOLET F = 
O: IF IHT ( A-/400 3=A/400LET F=1 
610: RETURN 


4 : 0= ( IHT ( 30. 608*1 M-4+12*( M<5 3 3 3-367*C M<5 3+92-( M>2 3- 
AHB A-/4< > IHT ( A/ 4 3 3 3* ( M< > 1 3 
5: 0=D+J+H: M=1 : X=0 

6: I =365+ ( A-/4= I NT (A/4) J:IF 0>=ILET 0=0- I * A=A+ 1 : GOTO 
7: I=365+( A^4=IHT (A/4 3 »:IF ABS ( 0-365- ( A/4= IHT ( A/4 ) 
I LET 0=0+1 : A=A-1 : GOTO 7 

8: FOR I = lTO IHT (0/28 ):X=X+UAL HID$ (" 303232332323 " , 
+ 28+ ( A/'2= I HT ( A/4 3*1 3: M=M+( 0>=X 3: HEXf I 
10: J=( IHT ( 30. 608* ( M — 4+12*( M<5 3 3 3-367* ( M<5 3 + 92- ( M>2 3- 
AHD A/40IHT ( A/4 3 3 3* ( M< >13 
1 1 : J=0-J: RETURH 


Le « truc » que je vous propose, et que j’utilise déjà 
depuis plusieurs mois avec succès, permettra à plus 
d’un possesseur du PC-1500 + CE-150 de faire des 
économies substantielles : je n’ai pas changé mes 
stylos depuis le mois de MAI (NDLR : La lettre de M. 
ARISTIDI est datée du 13/02/86) et pourtant j’utilise 
intensivement mon appareil... Il suffit de remplir pério- 
diquement les stylos avec de l’encre fraîche. 


VOICI COMMENT PROCÉDER : 

La structure d'un stylo est donnée en 
figure 1 . 

Cette structure a été constatée expéri- 
mentalement. L'encre à utiliser pour rem- 
plir le stylo est de la vulgaire encre de 
stylo à plume, en cartouche... On pren- 
dra bien sûr de l'encre bleue pour le stylo 
bleu, et de même pour les autres 
couleurs ! 

POUR OUVRIR LE STYLO, IL FAUT Y 
ALLER DÉLICATEMENT : 

Se munir de deux pinces, avec la pre- 
mière serrer la tête du stylo, elle est assez 
longue pour offrir une bonne prise, et 
avec l'autre pince, serrer DÉLICATE- 
: MENT mais fermement, de façon à ne 
pas trop le déformer, le corps du stylo. 
Tirez fort ! ! 

Au bout d'un certain temps le stylo cède, 
et la tête se sépare du reste. On voit alors 
le bouchon avec un trou au milieu. Quel- 
quefois le bouchon s'en va avec la tête. 
On prend alors la cartouche d'encre et on 
en approche l'extrémité de l'embouchure 
du stylo. On presse fort sur la cartouche 
pour en faire sortir une première goutte 
que l'on déposera sur l'ouverture. Avec 
une aiguille, on « touillera » le corps 
spongieux du stylo pour qu'il s'imbibe 
bien d'encre. 

On fera aussi boire l'extrémité de la tête 
du stylo qui est en contact avec le corps 
spongieux (c'est à dire « l'autre côté » ou 


le « dessous » de la tête du stylo). Si une 
goutte ne suffit pas, on en met deux, puis 
on retourne le stylo. Il faut bien entendu 
que la tête ne dépasse pas trop du corps. 
On pourra comparer avec un autre stylo. 
On peut ensuite essayer d'écrire avec le 
stylo (même à la main, ça marche) et nor- 
malement les résultats sont probants. 
Et même pour les stylos très secs, cette 
méthode donne d'excellents résultats. 
Evidemment il y a le risque d'abimer le 
stylo avec l'ouverture. Notons quand 
même qu'une boîte de 4 stylos coûte 
40 F à la FNAC... et une boîte de cartou- 
che fait environ 2,50 F, et on en met 2 
gouttes à chaque fois ! 

Éric ARISTIDI 


Dans son texte initial. M. ARISTIDI con- 
seillait de se servir de ses incisives à la 
place de la deuxième pince pour éviter 
d'abimer le réservoir. Nous avons sup- 
primé ce conseil estimant qu'il valait 
mieux perdre un stylo plutôt qu'une dent. 
De plus cette méthode ne marche pas 
avec les nouveaux stylos feutres à pointe 
plastique. Pour ces derniers , il est con- 
seillé dans un bulletin de TACUOP de per- 
cer le stylo sur le côté pour le remplir 
grâce à une seringue. 

LE CLUB 


Figure 1 
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cartouche de feutre 




RÉCURSIVITÉ 
COMMENT OPTIMALISER ? 

Si vous avez lu l’article du bulletin numéro 18 , vous l’au- 
rez constaté... La récursivité ne demande pas beaucoup 
de calculs mais perd son temps à effectuer le passage 
des paramètres. 

Pour avoir des programmes rapides, il faut minimiser le 
nombre de paramètres... Illustrons cette philosophie en 
réalisant ensemble le sous-programme suggéré dans le 
bulletin précédent (calcul du déterminant d’une matrice 
N k N). 


• N 2 pour la matrice elle-même, Si on choisit de travailler toujours sur la 

le tout N fois : n'oublions pas que cha- dernière colonne, il n'est plus nécessaire 
que paramètre est un tableau ! d'indiquer quelles sont les colonnes sur 

Une autre idée est de passer comme lesquelles on travaille vu que se seront les 
paramètres L, les numéros des lignes et Q premières... et on gagne un 
C, les numéros des colonnes sur lesquel- paramètre ! 

les on doit calculer le déterminant : au Q n ava jj remarqué que la variable qui 
lieu de travailler sur A (l,J) on travaille- ser ^ ^ jndicer nos paramètres (R) pouvait 
rait sur A (L(l), C(J)), on utilise un adres- f a j re double emploi. C'est le cas ici, vu 
sage indirect. que Q est toujours égal à N -R + 1, ...et 

Il ne faut plus que N + 2 x N 2 éléments en q n ' est pius nécessaire non plus ! 
mémoire, P % . 

• 1 pour Q, la dimension du déterminant, Enfin ' ' a re 9 le des c ° toeu , rs su 9‘ 

• N pour C, le pointeur des colonnes, Qere de ne pas calculer le cofacteur 

• N pour L, le pointeur des lignes... quand on devra multiplier celui-ci par zéro 
le tout N fois, et on ne touche plus à la ' Igne 

matrice ! 

VOICI LE PROGRAMME. 


Le 'truc' qui permet de calculer le déter- 
minant d'une matrice quelconque, c'est 
la règle des cofacteurs. « Le déterminant 
d'une matrice A est égal à la somme des 
produits de chaque éléments d'une ligne 
(ou d'une colonne) par son cofacteur 
correspondant ». 


Le cofacteur de a i j (élément de A) est 
le déterminant de A' obtenue en suppri- 
mant de A la ligne i et la colonne j, multi- 
plié par (-1) (i+j). 


PAR EXEMPLE, 


2 3 4 
6 7 8 
10 11 12 
-14 15 16 


et si on choisi la première colonne, on < 


dét A=1 


6 7 8 
1011 12 
-14 15 16 


2 3 4 
10 11 12 
14 15 16 


2 3 4 
6 7 8 
-14 15 16 


évidemment pour calculer dét 


10 11 12 


10 11 12 
-14 15 16 


le sous-programme s'appeler 


lui-même et à son tour calculera, 


iét [Tl 1 2*1 - 10 * dét T 7 8] -14 "dét fl 8 
J_5 16J L15 16J [11 12^ 


etc, etc jusqu'à ce qu'il ne reste que des matrices 1 x 1 dont le déterminant est 
immédiat à calculer (cas de base). 


IM PUT « DIMENSION » ; N : DIM A (N, N), L (N, N), D (N), I (N) 
R=0 : WAIT 0 : FOR 1 = 1 TO N : FOR J = 1 TO N : PRINT 
« A » + STR$ ! + »,« + STR$ J ; : INPUT « = » ; A(I,J) 

CURSOR: NEXT J: L (R + 1, !)=!: NEXT I: GOSUB 100: 
WAIT : PRINT « DET » ; D (R) : END 
R = R + 1: ÎF R = N LET D (R — 1) = A (L(R,1 ), 1) : GOT0 150 
D (R — 1 ) =0 : FOR l(R) = 1 TO N-R + 1 : IF A <L(R, I (R)), 
N-R + 1)=0 GOTO 140 

FOR I = 1 TO N - R : L (R + 1 , 1) = L (RJ + (l(R) < =1)) : NEXT I 
GOSUB 100: D (R- 1) = D (R-l)-(-l) (Î(R) + N-R) * D 
(R) *A (L(R, I (R)), N-R + 1) 

NEXT I (R) 

R = R - 1 : RETURN 


Ceci dit, ce programme même s'il est plus 
court, demande beaucoup plus de 
mémoire qu'un programme classique qui 
utilise des méthodes d'analyse numéri- 
que. Et il n'est plus rapide que pour des 
dimensions faibles dans certains cas 
particuliers... 

Un cas particulier est celui des matrices 
qui contiennent de nombreux zéros 
(matrices d'incidence, etc.). Nous l'em- 
portons sur les algorithmes de Gauss et 
autres parce qu'ils demandent des tests 
et des permutations pour éviter les divi- 
sions par zéro. Par exemple, le calcul de 


0 040 000 0 
0 011 000 0 
2 000 000 0 
dét 0 000 -1 00 0 
0 000 000 10 
0 -900 000 0 
0 000 001 0 
0 000 080 0 
ne nous demande que 4,5' pour répon- 
dre - 5760... comparez avec votre pro- 
gramme classique, vous serez heureuse- 
ment surpris ! 

Bon amusement, et à vos machines... 

Frédéric BLONDIAU 


Une première idée est de passer comme chaque appel réentrant du. sous- 
paramètres au sous-programme qui cal- programme, on doit réécrire une matrice 
cule le déterminant D, une matrice A entière. 

(N, N) et sa dimension Q. Cependant, 2. Cela prend beaucoup de mémoire : les 
cette méthode a deux inconvénients paramètres demandent N + N 3 éléments 
majeurs... mémoires... 

1. Cela prend beaucoup de temps : à *1 pour la dimension de la matrice, 


UN RENSEIGNEMENT ? 

UN PROBLÈME ? 42.74.07.68 



\OUS 


3D HISTO 


Ce programme est le pre- 
mier d’une série permettant 
d’exploiter au mieux votre 
table traçante, pour des 
représentations graphiques 
classiques ou originales, à 
partir de tableaux de don- 
nées numériques. Il est 
extrait d’un livre de pro- 
grammes japonais et tra- 
duit pour votre plaisir. 

Il est destiné aux PC 1350, 1450 et 2500 
munis d’une carte 8 Ko au moins, et 
bien sûr d’une imprimante graphique 
CE-516P ou CE-140P. L’imprimante 
intégrée du PC 2500 fonctionne direc- 
tement en supprimant l’ordre OPEN de 
la ligne 790. Les données sont donc 
représentées sous forme de graphique 
à barres verticales, mais en dimension 
3 ce qui est moins courant (cf fig. 1). 
Cela donne un aspect professionnel et 
esthétique indiscutable, tout en auto- 
risant une excellente lecture et inter- 
prétation. Le programme est organisé 
en trois parties : saisie, sauvegarde et 
tracé. 


est alors posé. Titre (sur 10 car. max), 
nombre de colonnes (axe X), nombre de 
lignes (axe Y). L’option « Lecture Cas- 
sette » est alors proposée. En répon- 
dant O (ou o) le programme chargera 
les données à partir du support magné- 
tique indiqué. Puis rendra la main en 
attendant de passer au tracé par DEF 
Z. 

Autrement, on peut choisir le numéro 
de la couleur (0 à 3) de l’échelle 
(3:rouge si ENTER), et la couleur du 
tracé (1:bleu). Ensuite, on vous deman- 
dera le nom affecté à chaque colonne, 
puis à chaque ligne. On peut à présent 
s’occuper de la saisie numérique pro- 
prement dite (axe Z). Entrez la valeur, 
après l’affichage du nom de la colonne 
et de la ligne au signe d’invite “ = > ”. 
La valeur doit être comprise entre 1 et 
999999. La valeur maximale est affi- 
chée à la fin de la saisie, tapez ENTER 
si vous êtes d’accord ou corrigez la en 
fonction de l’aspect recherché, ou sui- 
vant l’échelle. Opérez de même pour la 
valeur minimale. En dernier lieu, vous 
choisissez le nombre de graduations 
pour l’échelle. Nous pouvons alors pas- 
ser à la seconde ou troisième étape. 

LA SAUVEGARDE : 

L’entrée se fait exclusivement par DEF 
S. Si aucune saisie n’a été effectuée un 
message d’erreur s’affiche. 

Lorsque la cassette est positionnée 
dans le magnétophone (position REC 
PLAY), tapez sur ENTER pour lancer la 
sauvegarde sous le nom “3DDATA”. 


LA SAISIE: 

Elle s’exécute par DEF A ou RUN. Un 
certain nombre de questions claires 


LE TRACÉ : 

C’est la partie la plus importante et 
celle qui demande le moins d’efforts. 


Comme pour la sauvegarde, si pas de 
saisie alors message “* PAS DE 
DATA 

Positionnez auparavant le OPEN en 
fonction de l’imprimante, et les swit- 
ches sur la CE-516P en fonction du PC. 
On prend l’OPEN standard pour la 
CE-14ÛP (voir mode d’emploi) et pour la 
516P, on peut prendre OPEN “1200, N, 8, 
1,A,L,&1A”. Le message «JE 
TRACE ! » indique que le tracé va s’ef- 
fectuer. Si un problème survient, véri- 
fiez que la 140P est sur PRINTER et 
non SIO, et que l’alimentation est suf- 
fisante. Le programme s’arrête de lui- 
même après le tracé du graphique et 
du tableau des valeurs. 

Vous allez pouvoir épater les obsédés 
des chiffres et convaincre les plus réti- 
cents à vos études diverses. 

Jean-François VIGNAUD 

10: REM *** 3D HISTO *** 

20: "A" CLEAR : WAIT 64: DIM T$(1)X20 
30: INPUT "T I tre=>" 5 T$(0) : GOTO 50 
40: BEEP 2: GOTO 30 

50: IF LEN T$(0)>10 LET T$(0)= MID$ (T$ 

( 0 ), 1 , 10 ) 

60: T$(1)=T$(0) 

70: A=0: INPUT "Xco I C 2-12 ) = " ! A : GOTO 90 
80: BEEP 2: GOTO 70 
90: IF A<2 OR A>12 BEEP 2: GOTO 70 
100: B=0: INPUT "Y-L I 9n(l-6)=" j B: GOTO 12 
0 

110: BEEP 2: GOTO 100 

120: IF B<1 OR B>6 BEEP 2: GOTO 100 

130:PAUSE "Lecture Cassette" 

140: P$=" " : INPUT "Lecture CO/N)?" ; P$ 

150: IF P$="0" OR P$="o" GOTO 630 
160: IF P$="N" OR P$="n" GOTO 190 
170: BEEP 2: GOTO 140 
180: REM XX COULEURS XX 

190 : C=3 : INPUT "Couleur Echel="1C: GOTO 
210 

200: IF C<0 OR 03 BEEP 2: GOTO 190 
210: 0=1 : INPUT "Couleur Trace=";D: GOTO 
230 

220: IF D< 0 OR D>3 BEEP 2: GOTO 210 
230: DIM X$ C A-l ) , Y$(B-1) , Z (A-l, B-l) » X(A, 
B-l ) , Y( A , B-l ) 



240: FOR 1=0 TO A-l 

250 : PAUSE "Col nom X("5 STR$ (1+1);")" 
260: T$(0)=" " : INPUT "=>";T$(0) 

270: IF T$(0)=" " BEEP 2: GOTO 260 
280: IF LEN T$(0)>10 LET T$(0)= MID$ (T$ 
( 0 ) , 1 , 10 ) 

290: X$( I )=T$(0) 

300 : NEXT I 

310: FOR 1=0 TO B-l 

320: PAUSE "Li?n nom YCd SfR$ (1 + 1)1 ")" 
330: T$(0>=" " : INPUT "=>";T$(0) 

340: IF T$(0)="" BEEP 2: GOTO 330 
350: IF LEN T$(0)>8 LET T$(0)= MID$ (T$( 
0 ) , 1 , 8 ) 

360: Y$(I)=T$(0) 

370: NEXT I 

380: L=-999999: M=999999 

390: FOR 1=0 TO A-l: FOR J=0 TO B-l 

400: PAUSE X$( I ) : PAUSE Y$(J) 

410: INPUT " = >" 1 Z( I > J) : GOTO 430 
420: BEEP 2: GOTO 410 

430: Z< I > J)= INT Z(I,J): IF Z(I,J)>99999 
, 9 OR Zd.JXl BEEP 2: GOTO 410 
440: IF Z(1,JXM LET M=Z(I,J) 

450: IF Z( I » J) >L LET L=Z(I,J) 

460: NEXT J: NEXT I 

470: PAUSE "Ual.Max="; STR$ L 

480: Q$="": INPUT "Max=";Q$ 

490: IF Q$=" " LET N=L: PRINT STR$ N: 

GOTO 520 

500: IF LEN Q$>6 OR UAL Q$<L BEEP 2: 

GOTO 480 
510: N= UAL Q$ 

520: PAUSE "Ual.Mln="; STR$ M 
530: Q$=" " : INPUT "Min=";Q$ 

540: IF Q$= " " LET 0=M: PRINT STR$ 0: 

GOTO 570 

550: IF LEN Q$>6 OR UAL Q$>M BEEP 2: 

GOTO 530 
560:0= UAL Q$ 

570: IF N— O LET 0=0 • 

580: INPUT "Eche I i e (1-10)=" l E: GOTO 600 
590: BEEP 2: GOTO 580 
600: IF E< 1 OR E>10 BEEP 2: GOTO 580 ■ 
610: END 

620: REM XX LECTURE K7 XX 

630: LIAIT : PRINT "K7 OK, PRESS ENT" 

640: WAIT 64: PRINT "X Lecture Data X" 
650: INPUT #"3DDATA" 1A,B,C,D,L,M,N,0;E 
660:DIM X$(A-1),Y$(B-1),Z(A-1,B-1)»X(A> 
B-l) , Y(A, B-l) 

670: INPUT #X$ ( X) , Y$ ( X ) , Z ( X ) 

680: END 

690: REM XX SAUE K7 XX 

700: "S" IF L=0 GOTO 760 

710: WAIT : PRINT "K7 OK., PRESS ENT" 

720: WAIT 64: PRINT "X Sauue Data X" 

730: PRINT #"3DDATA" 1 A, B» C, D, L, M, N, O, E 
740 : PRINT #X$ ( X ) , Y$ ( X ) , Z ( X ) 

750: END 

760 : BEEP 3: WAIT 64: PRINT "X PAS DE DA 
TA X": END 
770: REM XX TRACE XX 
780: "2" IF L=0 GOTO 760 
790: CLOSE : OPEN : CONSOLE 39: LPRINT 
800 : LPR I NT CHR$ 27+"a": LPRINT CHR$ 13 
810: LPRINT CHR$ 27+"b": LPRINT CHR$ 27+ 
"0" 

820: WAIT 64: PRINT "JE TRACE I" 

830: LPRINT "Ql": LPRINT "M440,-100" 

840: IF B< 3 LPRINT CHR$ 27 + "?c": GOTO 86 
0 

850: LPRINT CHR$ 27+"?f" 

860 : LPR INT "P";T$(1): LPRINT CHR$ 27+"? 
b" 

870: LPRINT "M10.-45": LPRINT "I" 

880: S=N-0: U=S/E: R=210/S: F=210/E: G=210: H 
=125:W=12: YA=0 

890: IF A >2 LET G=210/(A-1) : H=125/(A-1) 
900: FOR 1=0 TO B-l: LPRINT CHR$ 27+"0" 
910: LPRINT "M0,"ÎYA: LPRINT "J210.-125" 
920 : Y= LEN (Y$( I ) )X12+25: LPRINT "R195, 

" 1 Y: LPRINT "P";Y$(I) 

930: LPRINT "M0,";YA: LPRINT CHR$ 27+ 
STR$ D 

940: X(0, I)=0:Y(0> I)=YA+W:Y(1, I)=Y(0, I) 
950: FOR J=0 TO A-l : X ( J+l , 1 ) = INT ((Z(J, 

I ) -O ) XR+GX J ) : NEXT J:Y=YA:YS = YA 
960: LPRINT "D" 5 X(1 » I ) > " > "lYAI " > "IX(li I) 

; ", m ;y+w; ", 0 , y+w; ", 0 , u ;ya 

970: FOR J=0 TO A-2 

980 : YE=YA+ INT ( ( J+1)X-H) : Y( J+2, I )=YE+W 
990: LPRINT "M" 1 X( J+l, I ) 5 " , " 5 YS 
1000: LPRINT "D";X(J+2 > I); ", ";ye; ", n ;x( 
J + 2, I) ; ", "ÎYE+W 

1010: LPRINT "D";X(J+1, 1)5 ", 'SYS+W 
1020: YS=YE: NEXT J:S=1 
1030 : FOR J=A-1 TO 1 STEP -l:Y = YA+ INT 
( JX-H ) : X= INT ( JXG ) 

1040: IF S=1 LPRINT "M" 1 X( J + l, I ) 1 " , " 1 Y: 
LPRINT "D";x;",";Y: GOTO 1060 
1050: LPRINT "M'SXI'S'JY: LPRINT "D";X( 
J + l, I); ", "5Y 
1060: S=-S: NEXT J 
1070:YA=YA-150 
1080: NEXT I 

1090: YA=-(B-l)X150-70: LPRINT CHR$ 27+ 
"0" 


1100 : FOR 1=0 TO A-l:X= INT (IXG)-6:Y= 
INT (YA-( IXH)-10) 



1110:IF I=A-1 AND IO0 LET X=198 
1120: LPRINT "M" » X j ", ", Y: LPRINT "P'SX* 
CI) 

1130: NEXT I 

1140: LPRINT CHR$ 27+ STR* C 
1150: Y=YA-130: FOR 1=0 TO E:X= INT CI* 
F-6+210) : IF 1=0 LET X=212 
1160: «= INT (0+1*10: GOSUB 1200 
1170: LPRINT "M" ; Xî " , " ; Y: LPRINT "P";Q* 
1180: NEXT I: GOTO 1220 
1190: REM ** NOTAT FIN ** 

1200: P* = STR* K: T= LEN P*: IF T<4 LET 
Q*=P*: RETURN 

1210: Q* = LEFT* CP*, T-3>+", " + RIGHT* CP 
$ » 3) : RETURN 
1220: GOSUB 1590 
1230: GOSUB 1800 
1240: LPRINT "M15, " ! YA 

1250: LPRINT "R0, "5-300: LPRINT CHR* 27 
+"0" : LPRINT "I" 

1260: REM ** TABLEAU ** 

1270: T=25*(B+2) : U=100: LPRINT CHR* 27+ 
? b 

1280: LPRINT " J0 , " 5 -U 5 " » " 5 T î " , 0 , 0 , " 5 U S " 

, " 5 -T ; ",0":S=1 
1290: FOR 1=1 TO B+l:X=I*25 
1300: IF S=1 LPRINT "M";x;",0": LPRINT 
"D’SXÎ ", "5 -U: GOTO 1320 
1310: LPRINT "M" î X5 " , " 5 -U: LPRINT "O'SX 
5",0" 

1320: S=-S: NEXT I : X=T-20: Y=~3 
1330: FOR 1=0 TO B-l:X=X-25: LPRINT "M" 
;x;",";y: lprint "P";y*ci>: next 


1340: LPRINT "M5,-3": LPRINT "P" ! "TOTAL 
": LPRINT "M0,";-U: LPRINT "I" 
1350: U=120: FOR 1=0 TO A: LPRINT "D0. " 

,\-u> ", ";t; ", " ; - u ; ", " ; t ; ",0" 

1360: s=l: FOR J=B TO 0 STEP -l:X=25*(J 
+ 1 ) 

1370: IF S=1 LPRINT "M";x;",0": LPRINT' 

"D";x; ", ";-u: goto 1390 

1380: LPRINT "M" ; XJ " , " 5 -U: LPRINT "D";X 
î",0" 

1390: S=-S: NEXT J:X=T-20 
1400: IF I=A GOTO 1520 
1410: Y=-3 : LPRINT "M" 5 XJ " , " 5 Y: LPRINT 
"P"!X*CI) 

1420: TT=0: FOR J=1 TO B: X=X-25: K=2C I ., J 
-1): GOSUB 1460: NEXT J 
1430: X=3: K=TT : GOSUB 1460: LPRINT "M0,. 

" J -U: LPRINT "I" 

1440: NEXT I: GOTO 1530 
1450: REM ** NOTAT FIN ** 
1460:TT=TT+K:ST*= STR* K:W1= LEN ST*: 
IF Wl<4 GOTO 1500 

1470: ST*= LEFT $ (ST*, Wl-3)+" , "+ R I GHT $ 
(ST*, 3) 

1480: Wl= LEN ST*: IF Wl<8 GOTO 1500 
1490: ST*= LEFT $ CST$, Wl-7)+" , "+ RIGHT $ 
( S T * > 7 ) 

1500: Wl= LEN ST*: Y= ( 10-1*11 ) *-12-2 
1510: LPRINT "M" î X! " , " î Y: LPRINT "P";ST 
$: RETURN 

1520: REM ** TOTAL ** 

1530: LPRINT "M" 5 X 5 ", " > -20: LPRINT "P"? 
"TOTAL" : TT=0 

1540: FOR J=l TO B: X=X-25: K=0: FOR 1=0 


TO A-l: K=K+Z( I , J-l) : NEXT I 
1550: GOSUB 1460: NEXT J 
1560: X=3: K=TT: GOSUB 1460 
1570: LPRINT "M-25, " 5 -U-100: LPRINT 
CHR$ 27+"a" 

1580: CONSOLE 39: LPRINT : CLOSE : END 
1590: YS=0: LPRINT CHR* 27+"0" 

1600: IF B=1 THEN 1740 

1610: FOR J=1 TO B-l: LPRINT "M0,";YS 

1620: IF B >1 LPRINT "J0,-150" 

1630: IF A=1 AND B>1 LPRINT "M210,"5YS- 
125: LPRINT "J0,-150": GOTO 1720 
1640: IF A=1 AND B=1 THEN 1720 
1650: FOR 1=1 TO A-1:X= INT CI*G):YE=YS 
- INT CI*H) 

1660: FOR K=0 TO A-l 

1670: IF XCK, J) >X OR X(K+1,JX=X THEN 1 
700 

1680: S=CYCK+1,J)-YCK,J))/CXCK+1,J)-XCK 
, J ) ) : Y= INT (S*X-S*X(K,J)+Y(K,J)) 
1690: LPRINT "M" ; X5 " , " ; YE: LPRINT "D'SX 
;"*"ÎY: GOTO 1710 

1700: NEXT K: LPRINT "M" j Xi " , " j YE: IF B 
>1 LPRINT " J0> -150" 

1710: NEXT I 

1720: YS=YS-150: NEXT J:S=1 
1730: IF B=1 LET YS=YS+150 
1740: FOR 1=0 TO A-l:X= INT CI*G):Y=YS- 
INT C I *H) 

1750: IF S=1 LPRINT "M'SX; ", "ÎY: LPRINT 
"D";x; u ,";y-70:. goto 1770 
1760: LPRINT " M " 5 XI ", "5 Y-70: LPRINT "D" 

; x ; y 

1770: S=-S: NEXT I 


1780: IF A=1 LPRINT "M210 , " I YS-125: 
LPRINT " J0 , -70" 

1790: RETURN 

1800: YS=-55: YE=YS-CB-1)*150-140: 

LPRINT CHR* 27+ STR* C 
1810: FOR K=1 TO E:X=210+ INT CK*F):Y1= 
YS 

1820: FOR J=0 TO B-l: FOR 1=0 TO A-l 
1830: 1F XCI, J)>X OR X(I+1,JX=X THEN 1 
880 

1840:S=CYC 1+1, J)-Y(I, J) )/(X( 1+1, J) -XCI 
, J) ) : Y= INT (S*X-S*X(I,J)+Y(I,J)) 
1850: IF Y>Y1 THEN 1870 
1860: LPRINT "M" 5 X5 " , " î Yl: LPRINT "D’SX 

1870: Yl=-C J*150)-125 
1880: NEXT I: NEXT J 

1890: LPRINT "M" î X! " , " î Yl: LPRINT "D'SX 
j " > "j YE ' 

1900: NEXT K: RETURN 

1910: CONSOLE 39: CLOSE : END 

ocCc.Cs 

Z 


Y 
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ON 


Grâce à l’article du n° 19 
vous avez appris à mettre 
en marche votre PC, main- 
tenant nous allons utiliser 
les variables (de plus en 
plusi fort le Sharpentier !). 
Avant de se lancer dans des 
considérations techniques 
en distinguant les diffé- 
rents types de machines, 
nous allons d’abord étudier 
ce qu’elles ont de commun ; 
voyons d’abord comment 
s’utilisent les variables en 
mode calcul. On distingue 
deux sortes de variables. 
Les numériques ne peuvent 
contenir que des chiffres, 
et les alphanumériques 
peuvent stocker toutes les 
sortes de caractères que 
l’ordinateur connaît. 


NUMÉRIQUES 

On se sert généralement de ces varia- 
bles pour stocker les résultats intermé- 
diaires dans les calculs, c’est dire leur 
importance ! 


Nous allons prendre un exemple géné- 
ral avec une variable de nom A. En effet 
les variables ont des noms qui corres- 
pondent aux lettres de l’alphabet. Vous 
en avez donc 26 directement accessi- 
bles, mais nous verrons plus tard qu’en 
fait vous en avez bien plus. 

Il y a deux actions courantes que l’on 
fait subir à une variable : 

- lui affecter une valeur, ou 

- lire sa valeur et l’utiliser dans un 
calcul. 

Le premier cas est assez simple, il suf- 
fit d’écrire le nom de la variable, de 
mettre un signe égal, et d’écrire la 
valeur ou le calcul dont la valeur s’af- 
fectera à cette variable. 


Par exemple : 

A = 10 ENTER 
Revient au même que 
A = 5*2 ENTER 

Maintenant, lorsque vous voudrez lire 
cette valeur, il vous suffira de taper : 
A ENTER 
et 10 s’affichera. 

Mais vous pouvez aussi utiliser la 
valeur 10 contenue dans A à l’intérieur 
d’un calcul. Ainsi : 

A*5 ENTER 

donnera 50, ce qui correspond bien à 
A (= 10)*5. Mais vous pouvez stocker 
ce résultat dans une autre variable, par 
exemple B. On fera alors : 

B = A*10 ENTER 
et B vaudra bien 50. 

On peut aussi affecter à une variable 
une valeur qui est calculée à partir de 
sa valeur précédente. 


Par exemple : 

A = A + 1 ENTER 

effectuera le calcul A + 1, dans notre 
cas A valant toujours 10, ce calcul vau- 
dra 11 et le résultat sera de nouveau 
stocké dans la variable de nom A qui 
perdra ainsi son ancienne valeur. 

ALPHANUMÉRIQUES 

Ces variables se comportent différem- 
ment, en effet, on ne traite plus des 
chiffres mais des caractères., Ainsi on 
pourra mettre en mémoire des mots. 
Les principales règles d’écriture pour 
ces variables sont les suivantes : 

• un signe $ après le nom de la varia- 
ble indique qu’elle sera alphanumé- 
rique 

• les mots ou message sont entre 
guillemets 

• seule l’addition est possible. 

Par exemple : 

A$ = “NOM” ENTER - stocke le mes- 
sage NOM dans la variable A$ 

A$ ENTER - vous lisez la 

variable de nom A$ 

A$ + “INE” ENTER -vous rajoutez au 
message NOM la partie INE et le résul- 
tat est logiquement NOMINE. 

Si vous aviez fait : 

B$ = “NOM” + A$ ENTER 
vous auriez dans B$ le message 
NOMNOM, et pour vous en convain- 
cre : B$ ENTER. 

Vous pouvez deviner qu’avec cette 
syntaxe, il est impossible de mettre un 
guillemet dans un message. Gênant ! 
Remédlons-y grâce à une merveilleuse 
instruction : CHR$. 

En règle générale, lorsqu’une instruc- 
tion possède un $ comme dernier 
caractère, sa réponse sera une chaîne 


de caractères. Dans notre cas précis 
CHR$ est l’abréviation de 
CHaracterR$. Tous les caractères que 
vous pouvez afficher sur votre écran 
sont en fait codés en mémoire par un 
numéro selon un code appelé code 
ASCII qui se traduit en gros par « Code 
Standard et International » ! 

Vous ouvrez vos grands yeux ! Du stan- 
dard en informatique ! Impossible me 
direz-vous ! et je vous réponds bien sûr, 
seuls les codes les plus courants ont 
presque partout le même numéro. 
Ainsi A est 65, et ” est 34. Ainsi, si vous 
faites CHR$ 34 ENTER, un superbe 
”vient s’offrir à vous. Il ne me reste qu’à 
l’intégrer à un message. 

A$ = “NOM” + CHR$34 + “PC” 

+ CHR$34 ENTER 
et le résultat sera : 

NOM “PC”. Superbe non ? ! 

Et toujours plus fort... 

Et bien non ! Le rédacteur en chef m’in- 
forme qu’il est temps de conclure sans 
quoi je déborderais de mon espace 
dévolu. La prochaine fois nous atta- 
querons donc MID$, LEN, STR$ et 
toute une série d’autres choses 
amusantes. 

Le Club 



s - 


OLP POUR PC 1 350, 
2500, 1260/61, 
1401/02150 


Dans le n° 1 7, je vous avais proposé RENEW pour récu- 
pérer un programme BASIC « effacé » par un NEW ou un 
ALL RESET. Ce programme LM n’exploitait pas la struc- 
ture des lignes Basic propres aux PC cités. Par le fait, OLD 
donne le même résultat plus rapidement, et occupe 23 
octets seulement. 


Les Dumps fournis pour chaque série 
se rentrent aisément par POKE 
adresse, data, data... Ex. pour le PC 
1350, on tapera POKE &6E48,&F4,&71, 
&04, &02, &00, &52, &04, &24. Puis POKE 
&6E50,&03,&00,&84 etc. Pour le Dump 
du 1350, le nombre hexa après les deux 
points est un contrôle de cheksum, uti- 
lisable par l’utilitaire donné pour cette- 
machine dans notre n° 13. Pour les PC 
autres que 14XX, le programme est 
situé à la fin de la zone système des 
boucles : tampon des FOR-NEXT. Les 
PC 1401/02/50 ont la désagréable habi- 
tude (ce qui m’avait échappé pour 
RENEW, mais pas aux utilisateurs de 
PC 14XX, comme le témoigne vos let- 
tre?) de réinitialiser ses tampons à l’al- 
1 lumage : Sûrement à cause du mode 


CAL. J’ai donc placé le programme LM 
ailleurs (à la fin de la zone Basic). De 
toutes façons, le LM est relogeable et 
peut donc être POKé où l’on veut sans 
modifications. ATTENTION ! les pos- 
sesseurs de 1401 doivent faire un 
POKE &46FC,&B8,&45 (POKE 
&5F07,&18,&5C pour le 1450), pour pro- 
téger le LM des DIM qui l’écraserait à 
coup sûr. Après un NEW, ALL RESET 
ou CLEAR, refaire ce POKE. Le mieux 
est de rechercher un emplacement de 
23 octets fiable et sûr. Le désassem- 
blage fourni doit normalement vous 
permettre de comprendre le fonction- 
nement de ce programme court, mais 
fort utile. En rappel voici la structure 
d’un programme BASIC dans ces 
machines : 


PAR EXEMPLE : 


AAAAWAAAA/VVSAVVVSAWAAA 


Ce programme dans un PC 1350 sans carte. 




10 PRINTA 
20 END 


Le programme ci-dessus est codé : 


1 0 1 0 + 1 j _ I * 

1000 + t + + + ** 

1030 CPô 'Î6E48 

1040 + 

185Ô CAL 

1868 IX 

1878 LIA 

1888 STB 


START BASIC - X 


&88 


On se place sur le 1 er octet du numéro de la 
ligne (PF). 

On met la valeur 0 à la place du second FF 
dû au NEW. 


&6030+ START BASIC 
&6033 + 3 = &6036 


&603C - END BASIC 


Address 

Data 

6030H 

FFH 

31H 

OOH 

32H 

OA H 

33H 

03H 

34H 

DEH 

35H 

41H 

36H 

ODH 

37H 

OOH 

38H 

14H 

39H 

02H 

3AH 

D8H 

3BH 

ODH 

603CH 

FFH 


... code début prog BASIC 

1 10 n° de ligne (PF, Pf) 

... Longueur de la ligne 
... Token PRINT 
... A 
... CR 

. 20 

... Longueur ligne 
... END 
... CR 

•••Code fin prog BASIC 


Les deux FF encadrant le programme 
sont à des adresses conservées dans 
les pointeurs appelés : START BASIC 
et END BASIC. Lors d’un NEW, le 
second FF vient se placer à la suite du 
premier (détruisant le premier octet du 
numéro de ligne) et END BASIC est ini- 
tialisé avec cette nouvelle adresse. Le 
programme LM place 0 sur ce FF et 
recherche l’adresse de l’ancien FF 
pour remettre dans END BASIC, 
l’adresse qu’il contenait avant le NEW. 
Il va sans dire que le programme Basic 
n’est pas réellement effacé. 

Jean-François VIGNAUD. 



1188 
1118 
1128 
1138 
1148 
1158 
1 168 
1178 
1188 
1198 
1288 



LP 


u* . . 

0- I Ù 



bXBD 

RTN 


On se place sur le 2 e octet du numéro. 
On met dans A la longueur de la ligne. 


88 


0-+B .=> OOLEN^BA 


04 BA+X -> X on se place sur le OD de fin de 

ligne. 

Onregarde si le code suivant est l’ancien FF 
:: de fin de programme. 

D Si non on recommence car c’est un numéro 
de ligne. 

ç^~~ Si oui ont réinitialise END BASIC avec 
l’adresse trouvée dans X. 

-Et c’est tout ! 


^A/VWVvVv^AAAVv^A^AVVVA' 


>VAAAWvVWsAAA/W^ 

BUiTP OLD PC 1358 
6 E 4 8 F 4 7 1 8 4 8 2 8 8 5 2 3 4 2 4 ; E 5 
6E58 838884 1 42467FF29 5 4E 
6E58 8 A 1 8 6 F 8 3 8 4 1 B 3 7 8 8 ' 6 2 


D U M P OLD PC 1268/61 
6748 *F3BB 8482 8852 8424 
6758 8388 8414 2467 FF29 
6758 SAIS 66E3 841 B 3788 


DUMP OLD PC 2588 
6F48 F555 8482 8852 8424 
6F58 8388 8414 2467 FF29 
6F58 8A18 6D93 84 IB 3788 


DUMP OLD PC 1481/82 
45B8 F643 8482 8852 8424 
45C8 8388 8414 2467 FF29 
45C8 8A18 46E3 841 B 3788 


DUMP OLD PC 1458 
5 C 1 8 FA31 8482 8852 8424 
5C28 8388 8414 2467 FF29 
5C28 8 h 1 8 5F83 841B 3788 


VVVWVvMAAA/VWvWWWVA/ 







DES ERREURS... QUI N’EN FAIT PAS ? 


NUMERO 12 • PAGE 36 • SUBMARINER 


La ligne 1010 est : 

DATA 95,67,67,1 03,1 13,97,71,1 1 5,67,97,1 1 5,71 ,71 ,99,65 


NUMERO 14 • PAGE 30 • NAVIGATION ASTRO 


Ligne 5 ; 51 ; 62 ; 304 ; 306 ; 752 ; remplacer SQR par V 
Ligne 304 et 498 ; remplacer PI par 7r 
Ligne 59 ; mettre en dernier caractère Y 


NUMERO 15 t PAGE 21 • PC BLUES • COL. 2 


Pour charger PC BLUES : 

NEW PEEK &7864 * 256 — 2200 


NUMERO 17 • PAGE 14 * SURFACES 


Suite et fin du programme « SURFACES » 

AAAAAA/^AAAAVv^AAA\AAVA^AA/SAAAAAAAA^AAA^Vv^VvAAA/^ 

15 1 O : S=2*TT*R*H 
15 15: GOTO 115 

1 6 O O : " 16 ":CLEAR: PRINT "SURFACE D UN. ".PRINT 'FU 

SEAU. . . "PRINT " TELLE QUE ..."PRINT "SJÏÏxR-2^ 

N)/ 90" 

1 6 O 5:INPUT"R: R:INPUT"N: "N 

7 6 1 O: S=(ïïxR~2xN)/90 

1 6 1 5: GOTO 115 
1 6 5 0 : END . . 

VVVWV^A^AA^/VVv\\A/WV\^AAAAA/V\VvV\AAAAA/WV\AAAAA^v 


NUMERO 17 • PAGE 54 • HARD COPY #COL3 


Ligne 1010 : 

O = POINT (A, B) : C = E*B, D = E*A : IF 0 = 0 N EXT B : N EXT A : END 


NUMERO 18 • PAGE 28 • CLASSEMENT •COL. 2 


ayant au maximum deux caractères, le second ne pouvant être un chiffre. 
SGN OR = O ou =1 tri croissant 


NUMERO 18 • PAGE 30 * COL. 3 

AAAAAA/VVA^/VvV^AA^^VS/VvAAA/V^/s/V^AA/VVV^AAAA\VvV^AAA 

10 ft-OiFDR I=!TD 8:ft=ft+2 A î8-I IH'AL HIBÎ (ftî.1,1 !:NEXT ÜPRIHT A 

vVVVV\MA^VW^VsAAAMAA/VVVWVVsA/VVVAAA^VWVV\AA/V\/ 

NUMERO 18 • PAGE 31 • COL. 1 

sinm<0 256-nm 

NUMERO 18 • PAGE 36 • NAVIGATION ASTRO » COL. 3 

46 : G = H/24 - P + Z/B + (Q-A + X)/R - 0.000005*SIN (R*(T-5)/29.53)) 

NUMERO 19 • PAGE 8 . DUMP REGISTRES 

Rien qu’un petit listing oublié 




T 5 ï B $ < 0 > = v 

805 PRINT I J A B X 

/NAAAMAA/VWM 

105 REPI DUMP RAM INTERNE 


! Xh Y! Yh'-‘: FOR 1=8= 

ïFLAGSjREGISTRES 


6-945 Tu K694 Cï X= 

20 : =, j- E L 6900 I I O i C 69 » L 


PEEK I: GOSUB 288: 

3*-»: : 40 . 1 : 0 :,.: 


NEXT U PRINT B$<8) 

0 1 ’ C 3 8 ' C 0 3 » ■! Ü 2 ’ C ü Û i C 


85: B$(8) = '“-‘ 

5 2 ’ 6 1 1 » &• 4 1 1 6 0 2 


90: PRINT W K L M N 8 

30 ! C <■ E C 6 9 1 0 » L 0 1 1 C 3 h < L 


c 8d 8e 3 f : FOR I=K 

03" I 02 ’ I 00 ’ L j 2 ’ C 11’ I 


6942 TO 8:6954 5 X= 

42 ? L 20 ’ '! 52 ’ ■*. 1 1 ’ C 43 ? & 


PEEK I: GOSUB 280: 

21 ? C 52’ C 11’ I 44 


NEXT I: PRINT B$(@) 

40 : PüKc t-920 ’ 22 ’ ■. 52 ? & 


95: PRINT v v 

1 1 ? I 4 5 ’ 8Ü ’ L 53 ’ i 00 ? & 


180: FOR !=K6955 TO K69A4 

52’ L 1 1 ’ C >+6’ i 81 » C 19 ? & 


E'^E- 3: Bl''0) = ■ y : 

11’,46’.:&1’L 18 


r ÛR 3=0 "0 7:X= 

58 : °0" E ï 6930 ’ & 1 1 ? &45 ? S 


r'nEr--. ’.i + GOSUB 28 

80 ’ C 55 ’ l 11’ C: 4 2 ’ !<: 5 7 ’ & 


0: * J E.. T PRINT B$< 

30’.I H’;3P’C:57j&11ï& 


0;« : nEXT I 

4T’C52’£3T 


110: END 

55 : 2 1 M Si 1 0 1 + 24 : CALL 1 


208: Y= INT (X/16) : Z=X-Y+ 

6900 


16: B$(0)=B$(8)+ 

68 ï PRINT V Z C P Q R 


U H R $ C Y + K 3 8 + \ Y / 9 .- 1 : + : 7 ) 
+ • CHR$ ( Z+K38+ ( Z>9 ) + 

7 0 ï F O R. I = !<: 6 9 4 0 T U £ 6944 


7 } + 

: N= PEEK I: G 0 S U B 20 
0; NEXT Iî PRINT B$< 
0 ) 


210: RETURH 

vVVVVWsA/VWVv^A^AAAA/VVV 



NUMERO 19 • PAGE 3 • ET TOUJOURS HAD 


Listing hexadécimal 

adresse 18A:&50 et non &4F 

routine de reiogement : 

A/So^AAA/WV^AVV\^AAA^/AV^AAA/\AAAAAAVVVV^AVAVv^AAAA 
10 DATA OhOD^ES^^Eé^FC^FF^lOJ^lSO^lOO^léA 
20 DATA y7441904193 J li%,8:19A,&lAé^lAF^lB5 J yBC^iE9 
30 DATA &2GQf &2 ÛDj£215; 8:219; &22Bj 1265? 1269? &26B? £270? &275? 1278; &27E 
40 IHPÜT "Adresse! nnC5 ): “ ? As 1F 1AAHD £FF K >&C5THEN 40 
50 B=INT l A/256 URESTQRE 

60 FOR 1=1 T0 32 J RE AD DP0KE B*256+C;PEEK CB*256+C HBsNEXT I 
70 BEEP 5 

VVVWVvMAVvVWVWWWS/VVVWWsAAVAVWWWVWVVV 


NUMERO 18 • PAGE 29 * INITIATION LH-5801 . COL 3 


/v\A/^A^VVV^AA/^A\AAAVV\^AA^^AA/SAAAAA/V^A/V\VV^A\\^AAAAA 
10 NAIT 0ï FOR Ï=7T0 OSTEP -ÜPRINT STR$ !A>=2 A n?!A=A-(2 A n*(A>= 

2 A I)ïHEXT I s HAIT SPRINT 

WvVvVv^VsA/W^A\^AAVvV^/V^AAAAA^AA\^AVVWW^AA^AAA/ 



Toutes nos excuses à ceux qui n’auraient pas le module mémoire adéquat pour 
faire fonctionner MAD dans la version d’origine. Comme vous avez dû le remar- 
quer, le listinq du n° 19 a «sauté». 

Après avoir fait tous les POKEs du n° 19, mettre le LM à une adresse du. type 
&NN00 donc ayant le poids faible nul, faire NEW &NN00 + &1200. Et taper le 
programme Basic de relogement, RUN, et à la question® répondez par &NN00. 
Quelques secondes plus tard, le programme sera relogé. 

Le Club. 

/yAAAAA^AAAA/VVVNAAVAVVNAAA/VNAWAAA/VvV^VyA/vN^VNAAA 

5 s DATA &A40, &6F1 , &41 , &5B » &7C * &AD » &BC » &76F » &9A5» &AE2 » &AF3 

10s DATA 1 , 4, &D, &14, &1B, 8=20. &31 , &36, &46, &4B, &56, &67, &81 » 8=8 
6 » &89 7 &8C * &8F 

20: DATA &94, &9A, &A8 » &BO » &B3 > &DC » &EA » &FD 

30: DATA &634 , &642 , &670 . &686 , 8=6AO , &6A6 » &6AE 

40: DATA &728. &751 , &757 , &75C . &75F , &762 , &790 , 8=79E , &7C2. &7C9 
, &7E5, &7EC, 8=7FO, 8=7F3 

50: DATA &809 , 8=825 , &82D , &830 , &838 , &878 , &887 , &88A , &88D , &899 
, 8=8A2, &8A9, 8=8AC, &8B0 

60 : DAT A &8B8 , 8=8BB , &8E7 , &8ED , &8F3 , 8=8F7 , &8FC , &90 1 , &907 , &90A 

70: DATA &9 1 O , 8=9 1 3 , &9 1 8 , 8=9 1 C , 8=923 » 8=927 , &92B , &930 . &933 , &937 
, &94B. &958, &95B.&960 

80: DATA &96E , &97B , &97E » &985 . &988 , &98B , &994 , &99C . &9A8 , &9AB 
, &9B3, &9B6.&9BD 

90: DATA &9C2 . &9C8 , &9CD » &9DB . &9E0 , &9E3 . &9EE , &A08 , &A10. &A18 
, &A20 t &A28> &A30 » 8tA38 

100: DATA &A40. &A58, &A61 , &A64 , &A67 , &A6E . &A7 1 * &A74, &A7D 

1 10: DATA &A81 . &A8A , &A8D , &A92 . &A95 , &A98 , &A9B . &A9E . &AA6 , &AA9 
, &AAC » &AAF 





ERREURS... QUI N’EN FAIT 


s DATA &AB2, &AB9, &AC4, &AC7, &ADO, &ADA, &ADD, &AE5, &AE8, &AEB 
! DATA &AF6, &AF9, &B01 , &BOB , &BOE , &B 1 3 , &B 1 6 , &B22 , &B2C , &B57 
, &B5B, &B73, &B7A, &BB3 

: DATA &BB7 » &BBD. 8.BC8, &BCC * &BD1 , &BD4, &BD8. &BBB, &BEB. 8=BF5 
, &BFD 

s DATA &C01. &C08.&C0B, &COE, &C1 1 , &C 1 4 , &C 1 E , &C2 1 , &C2B, &C38 
, &C44 , &C4F, &C5A, &C5F 

: DATA &C6B, &C78, &C7E , &C83 , &C86 , &C89 , &C8B , &C99 , &CA6 , &CB 1 
, &CBE 

s DATA &CC3, &CC8, &CDO, &CD3, &CD6. &CDB, &CE1 , &CE6, &CEB, &CFC 
,&B03,&D15,&D2D,&D38 

ï DATA &D53, &B56, &D5C, &D68, &D6D, &D70, &D74, &D77, &B7C, &D86 
, &D8D, &D98, &B9D, &DAO 

s DATA &DA5 , &DAF , &DB4 ? &DBF » 004. &DD8. &DDF * &DE2, &DE8. &DF4 
, &DF9, &DFC, &E01 , &E04, &E08 

s DATA &EOD , &E 12» &E15, &E 1 F , £E2F , &E37 , &E3D , &E40 , &E45 , &E49 
, &E4C, &E54, &E60, &E6E 
s DATA &E7B, &E80, &E85, &E8D, &E99. &E9C 

! DATA &F20» &F28 , &F3 1 » &F35 , &F3D , &F42 , &F5A , &F62 , &F6E , &F75 
, &F7B, &F85, &F90, &F96, &F9E 

s DATA &FA3. &FAB. &FB0, &FB8, &FBD, &FC0, &FC8, &FD1 , &FDA, &FÇF 
, &FE7 , &FEE , &FF3 

! DATA &1001,&1011 , &101 A, &1023, &102C, &1031 , &1Q39, &1041 , & 
1048, & 1064, &106C, &107F 

s DATA & 1 084, &108C, &1091 , & 1 094 , & 1 OA2 , & 1 OAD , & 1 0B4 , & 1 OBD , & 
1 OC 2 , & 1 ÜCA , & 1 0D3 , & 1 ODC 
s DATA &10E1 , &10E9, &10EE, &10F1 , &10F9, &10FD 

SDH ERROR GOTO 290s RESTORE slNPUT " 3 s ” ï A s IF AAND 8=FF< >0 
THEN 270 

sREAD I s I = I +A s POKE I , PEEK I -R4F+ C A/256 ) s GOTO 280 
s END 


NUMERO 19 • PAGE 4 . MONSTRES ET CLÉS 


Un cafouillage « MONSTRE » dans le montage du listing à partir de la ligne 120. 


1 1 p - 5 0 : R E h fl 0 N S T R E 8 & ü 
i_E 

2:RANB0M :T=8 
1 9 : 14 A I T y0 : PK I NT " I H I T 
I ALI S AT ION" : DIM Z<6 
? 6 .- 1 * FüR 1=0 Tü 6 : Z 


28: FOR 1=8 TÜ 6:Z<0? I)= 
9: Z <6? I >=9: NEXT I: 
FÜR 1=1 TÜ 5: FÜR J= 
1 TÜ 5 

38:Z(IjJ)= RND 6: NEKT 
J: NEKT I 

35: Z< RND 5? RND 5) =7 
40: K= RND 5:Y= RND 5: 

IF Z(Kj y )=? THEN 48 
58: Z(K ? Y)=8 
60:K= RND 5: Y= RND 5: 

IF (Z(Kj Y)=7) + (Z(Kj Y 
)=8) THEN 68 
70: PR INT "CÜGFD. " ! K! " 
î Y: INPUT "N/S/E/Û ? 
v ;A$: IF A$O v N v AND 
A$< > V S' HND h! "E" 

A N D A $ \ / " G ' THEN 7 ü 
80: IF A$= y N v LET B=-l : D 
= 0 

90: IF A$= y S ■' LET B=î : D= 
8 

108: IF A^'-'E'-' LET B=0: D= 
1 

110: IF A$ = ''0 " LET B=8:D= 

- 1 

120: IF Z(K+D? Y+B)=9 
PR INT U N MUR ! ! : 
GOTO 78 

130: K=K+B: Y=Y+B: IF Z<K» 
Y )=7 PRINT '-'VOUS TRO 
UVEZ" : PRINT V LA CLE 
: T= 1 : Z ( K ? Y ) =0 : GOTO 


: IF Z(K ? Y)=8 AND T=1 
PRINT '■•VOUS AVEZ GAG 
NE'-': PRINT '•'BRAVO'-': 
END 

: IF Z(Kj Y)=5 PRINT V U 
NE POTION" : P=P+3: 
PRINT "VOUS AVEZ W SP 
j "PV":Z<KjY)=0: GOTO 
78 

: IF Z(K:> Y)=8 AND RND 
7=4 GOTO 155 

: IF Z(Kj Y)<2 PRINT M R 
IEN A SIGNALER": 

GOTO 70 

: PRINT "UN MONSTRE" 

: RANDOM :K= RND 5: 
PRINT "VOUS PERDEZ"? 
K? "PV" : P=P-K: IF P<= 
8 PRINT "VOUS ETES M 
ORT": PRINT "FIN": 
END 

: IF RND 5>2 PRINT "VO 
US LE TUEZ" : Z(K? Y)=0 
: GOTO 78 

‘.PRINT "VOUS AVEZ " 5P 
? " PV " 

: PRINT "VOUS LE RATEZ 
": PRINT "IL ATTAQUE 
": GOTO 160 


MODIFICATIONS 


POUR LE K-BASIC V.5.9 


(voir n° 17 p. 6 


Charger le Basic, puis lorsque la sonnerie retentit, retour- 
ner au moniteur par Shift Break. Par la commande M, 
changer les valeurs des octets. 


1277:04 127D : 7D 

1278 :6B 127E : 06 


1285:55 4545 : C9 10FD:31 

1286:06 10FE :30 

10FF : OD 


Puis, toujours par M, entrer à partir de 7 D04 les octets suivants : 


C3 714B ; DA 
OD 7140:37 
6B 714D : 6B 


2E73 : 03 
2E74 : 45 
2E75 : 6B 


21 15 00 22 5D 00 C3 50 33 CA 8B 23 FE E6 C2 07 23 CD 83 53 CD 46 48 FE 28 

D2 A6 20 32 54 00 7E FE 29 20 03 23 18 06 CD 36 68 CD 8E 53 CD 42 4F C3 07 

23 3A 12 73 CB 07 D2 A9 20 DI CD E4 56 Cl C9 7E FE 21 28 05 FE 3B C3 76 IC 

CD 84 1D 23 C3 6D IC (Note : le dernier octet est entré dans la mémoire 7D55) 

On réenregistrera le Basic par J8670 et enfoncement de S. 

Le K-Basic V.5.10 aura ainsi les nouvelles possibilités du Super Basic 6.2 avec 
de plus, 

CTRL H qui remet CONSOLE au maximum et réinitialise les couleurs de l’écran (il faudra cepen- 
dant faire CTRL V ou CLS pour effacer l’écran). 

CTRL K (ou PRINT CHR$ (11)) qui fait descendre l’écran d’une ligne. 

CTRL 0 (ou PRINT CHR$ (15)) qui fait remonter l’écran d’une ligne. 

Bernard KOKANOSKI 


LES CARACTÈRES 


DE CONTROLE 


A part les quelques privilégiés qui utilisent le MZ-700 
sous CPfM, la majorité des Sharpentiers ne se sert pas 
de la touche CTRL (chez certains, la poussière commence 
même à s’accumuler dessus !). C’est d’autant plus dom- 
mage que cette touche, convenablement utilisée, peut 
faciliter beaucoup la tâche du programmeur. 


Elle s’utilise comme SHIFT, c’est-à-dire 
que seule elle n’a aucun effet. Il faut 
appuyer en même temps sur une autre 
touche. On peut distinguer quatre 
effets différents suivant cette touche : 

• avec ALPHA elle permet de repasser 
en majuscule si vous étiez passé en 
minuscule par SHIFT ALPHA, 

• avec les touches de déplacement du 
curseur, INST et DEL, CTRL semble 
n’avoir aucun effet ; on obtient des 


déplacements de curseur, des inser- 
tions et des effacements, comme si 
elle n’était pas enfoncée. Cela s’avère 
pourtant très utile car, quand on est en 
mode GRAPH, on ne peut plus bouger 
le curseur. Il suffit donc d’appuyer 
conjointement sur CTRL et une de ces 
touches jaunes pour retrouver sa 
liberté, 

• avec les lettres de l’alphabet majus- 
cule et [, \, ], t,/on obtient les carac- 








tères de contrôle et c’est là l’utilité Voici donc un tableau des caractères de contrôle du MZ-700 : 


principale de CTRL (CTRL est d’ailleurs 
l’abréviation de ConTRôLe). Nous y 
reviendrons... 

• avec toutes les autres touches on 
obtient un écho de la dernière touche 
enfoncée, cela ne sert strictement à 
rien et peut même être considéré 
comme une erreur des concepteurs du 
S-BASIC !!! 

Mais qu’est-ce donc que ces fameux 
caractères de contrôle que l’on peut 
obtenir avec CTRL ? 

Ils n’ont de caractère que le nom car 
ils ne correspondent pas à un symbole 
affichable, mais à un effet particulier 
sur le fonctionnement des entrées/sor- 
ties de la machine (saut de ligne, effa- 
cement de l’écran, blocage du clavier 
en minuscule, etc.). Ils correspondent 
aux codes ASCII de 0 à 31. 

Leur utilité était plus manifeste avant 
l’avènement de la micro. En effet, l’or- 
dinateur et la console d’entrée/sortie 
étaient alors deux machines distinctes 
reliées par un cable, l’ordinateur 
envoyait donc à la console soit des 
caractères affichables (code ASCII 
> =32) ou des caractères de contrôle 
(ASCII < 32). Ainsi, si l’ordinateur vou- 
lait un bip, il envoyait le code « bip » 
(ASCII = 7) à la console qui disposait 
d’un haut-parleur inexistant sur 
l’ordinateur. 


ASCII 

TOUCHE 

ROLE 

0 

1 

CTRL A 


2 

CTRL B 

f inutilisé 

3 

CTRL C 

c 

4 

CTRL D 

J 

5 

CTRL E 

passage en minuscules 

6 

CTRL F 

passage en majuscules 

7 

CTRL G 

inutilisé (sauf K-BASIC) 

8 

CTRL H 


9 

CTRL 1 

) 

10 

CTRL J 

S inutilisé 

11 

CTRL K 

1 

12 

CTRL L 

J 

13 

CTRL M 

idem touche CR 

14 

CTRL N 

inutilisé 

15 

CTRL O 

inutilisé 

16 

CTRL P 

idem touche DEL 

17 

CTRL Q 

idem touche i 

18 

CTRL R 

idem touche t 

19 

CTRL S 

idem touche -► 

20 

CTRL T 

idem touche <- 

21 

CTRL U 

comme touche HOME 

22 

CTRL V 

comme touche CLR 

23 

CTRL W 

comme touche GRAPH 

24 

CTRL X 

comme touche INST 

25 

CTRL Y 

passage en majuscule (?) 

26 

CTRL Z 

inutilisé 

27 

CTRL [ 

curseur début ligne suivante 

28 

CTRL\ 

) 

29 

CTRL ] 

1 inutilisé 

30 

CTRL! 

l 

31 

CTRL / 

) 


On constate donc que beaucoup de 
ces caractères sont inutilisés. Mais il 
est possible de leur attribuer un rôle 
relativement facilement. 

En effet, quand le MZ-700 doit « affi- 
cher» un caractère de contrôle, il va 
exécuter le sous-programme LM 
dont l’adresse est située en 
$0067 + 2 * Code ASCII du caractère 
de contrôle. Il suffit donc de modifier 
la table qui s’étend de $0067 à $00A6 
pour attribuer de nouvelles fonctions 
aux codes inutilisés. 

C’est ce que fait le court programme 
BASIC que nous vous proposons. 
Exemple, si l’on associe au code 31 
(CTRL I) l’adresse $209F (qui est celle 
du sous-programme CONT), on pourra 
poursuivre l’exécution d’un programme 
après un BREAK, par CTRL/. Pour vous 
éviter de fastidieux calculs d’adresse, 
vous.pouvez utiliser le petit programme 
joint à cet article. Quant à lui, le listing 
hexadécimal représente 4 routines qui 
bien que minuscules s’avèrent à 
l’usage très utiles. De plus elles sont 
complètement relogeables, c’est-à-dire 
que vous pouvez les implanter n’im- 
porte où en mémoire (ici en $2CC0 zone 
inusitée au cœur du S-BASIC) 




INVERSE : situé au début du listing 
(déplacement $00) a pour rôle d’inver- 
ser les deux pages d’écran, cela évite 
d’appuyer 25 fois sur SHIFT t. 
NETTOIE : (en déplacement $28) res- 
taure la couleur et la taille d’écran ini- 
tiales. Cela évite d’avoir à recharger le 
BASIC quand on a trop rétréci la fenê- 
tre d’écran pour pouvoir taper 
CONSOLE en entier, ou de pédaler 
dans la choucroute quand le COLOR 


choisi donne des caractères noirs sur 
fond noir. 

CONTRASTE : (en déplacement $31) 
permet de passer en inverse vidéo pour 
mettre en valeur une portion de texte. 
AGRANDI : (situé en déplacement $3E) 
remplace le jeu de caractère standard 
par le deuxième générateur, et donc 
permet d’obtenir des lettres agrandies 
ou des symboles graphiques absents 
du premier jeu. Pour utiliser ces routi- 


nes, entrez-les sous forme hexadéci- 
male avec le moniteur du BASIC. Puis 
exécutez 4 fois le petit programme 
BASIC pour associer les caractères de 
contrôle aux routines (vous pouvez uti- 
liser CTRL I, CTRL N, CTRL C, CTRL A 
comme j’ai choisi de le faire ou n’im- 
porte quelle autre touche inutilisée). 
Ensuite, sauvegardez votre BASIC 
modifié si vous voulez disposer défini- 
tivement de cette amélioration. 


Dès lors, ces routines sont accessibles 
directement au clavier et peuvent 
même être utilisées dans un pro- 
gramme en faisant des PRINT CHR$ 
(XX), où XX est l’un des codes choisis. 

Simon CHAGNOUX 
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" 2CC0=F5 

E5 

D5 

C5 

D3 

E3 

1 1 

00 

s2GC8=D0 

01 

E8 

03 

60 

69 

19 

13 

:2CD0=ED 

A0 

2B 

77 

23 

78 

B 1 

20 

• 2CD8=F6 

7A 

1 1 

00 

D8 

FE 

D3 

28 

2 2CE0-E8 

D3 

El 

CF, 

. D 1 

El 

Fl 

C9 

“ 2Œ8-CD. 

FB 

33 

3E 

71 

32 

5D 

00 

S2CF0-C7 

F5 

33 

5D 

00 

07 

07 

07 

s 2CF8-07 

32 

5D 

00 

Fl 

C9 

É5 

21 

:2D00=5D 

00 

CB 

FE 

El 

C9 

00 

00 

en 2CC0 

Ctrl 

-I 

c ; 

ncers e ] 


en 2CE8 

ctr 1 

-N 

C ne 1 1 o i e 

] 


en 2 CF 1 

ctr 1 

-c 

C cont ras te] 


en' 2CFE 

ctr 1 

-3 

C a g r and î 

] 
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AAAAAAAAAAA^vVVv^A\Vv^VSAAA/SA/VV^AA^V\A/vvWW\AAAAA 

10 INPUT"CODE 3SCI i <0-31 > s n ;3 
20 PRINTT3BC25] "[î]= CTRL " ; CHR$C$40+3D 
30 INPUT“ ADRESSE DU PROGRAMME LU ASSOCIE 

40 H=INTCX/256D : P0KE$67+2*A , X-H*256 , H 

WVWVvVvVvVvVv^^^A/v^^A/VVVWWvA^VvVv^^^VWWVWv 


ATTENTION, NOUVELLE ADRESSE : 

CLUB DES SHARPENTIERS 
C/O MICRO ARCHI 
79, RUE DU TEMPLE 
75003 PARIS 



ÉDITEUR DE TEXTES 


PLEINE PAGE 


Ce programme a été mis au point pour permettre à une 
personne non initiée de taper une lettre sur MZ*80B. 

J’ai donc repris quelques peu le de repenser le principe d’après la faci- 
système des traitements de textes (ils lité d’utilisation de l’éditeur BASIC qui 
ont fait leurs preuves !) et j’ai essayé est assez sensationnel. 


TAPÉZ VOTRE TEXTE 

Ainsi donc vous tapez votre texte et faites la 
mise en page exactement comme si vous 
vous trouviez sur une page écran en BASIC. 
Les fonctions sont reprises de celles utilisées 
normalement polir l’éditeur : 


UTILISATION 

Dès son lancement, 
le programme demande le nom de la lettre que l’on va écrire . 

Si vous ne voulez pas enregistrer le texte, tapez CR ou ENT sans rien écrire d’autre 
sinon tapez le nom. 

Puis le programme demande le nom du texte à reprendre sur la disquette. Si 
vous ne voulez pas reprendre de texte, tapez CR ou ENT sans rien écrire d’autre. 
Vous avez donc quatre types de réponses possibles : 
soit R le fait de ne rien répondre 
soit N le fait de répondre un nom 


NOM DU TEXTE TEXTE SUR DISQUETTE EFFET 


R 

R 

vous tapez un texte et vous ne l’enregistrez pas 

R 

N 

vous prenez un texte sur disquette et vous ne 
l’enregistrez pas 

N 

R 

vous tapez un texte et vous l’enregistrez 

N 

N 

.vous prenez un texte sur disquette et vous 
l’enregistrez 


Si vous voulez effacer un texte de la 
disquette, tapez son nom quand le pro- 
gramme demande le nom de la lettre, 
et tapez EFFACE et CR ou ENT quand 
le programme demande le nom de la 
lettre à reprendre. 

En fait, ce programme est plus un essai 
qu’un programme véritablement utili- 
sable. Il lui manque certaines fonctions 
qui seraient bien utiles, notamment la 
création en mode graphique des carac- 
tères accentués. Bien sûr il faudra 
modifier l’entête suivant qui l’utilise, on 
peut même prévoir un éditeur d’entê- 
tes ! Si vous lui rajoutez de nouvelles 
fonctions, faites-nous en part. 

Marc GIRONDOT 


CLR ; HOME ; CR ; INST ; DEL ; les 4 flèches 
sont ainsi disponibles pour vous permettre de 
faire vous même la mise en page. Seules les 
touches bleues ont une fonction particulière 
puisqu’elles permettent de sortir de l’éditeur 
et de l’imprimer. 
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5 CONSÜLECBO , N : CLR : GUT U66 
10 PAGE/P65:PRINT/PCHR*(17> ; " ' 

REGULAT I ON ” +CHR* (1 9 ) 

15 PRINT/P" ♦ ♦♦♦♦♦♦ * 

♦ ♦ ♦ ♦ ♦ ♦ ♦ 
♦♦♦♦♦ ♦ ♦ ♦ ♦♦♦" 


♦♦♦♦"+CHR* <iB 


AUTOMATISME MESURE 


20 PRINT/P" 
30 PRINT/P" 
40 PRINT/P" 
50 PRINT/P" 


♦ ♦ 


Rue de la Croi >:-Vi gneron - 95160 MONTMORENC 


'55 PRINT/PsPRINT/PTAB (41 > ; "TEL» 989. 77. 87" : PRINT/P 

60 PR I NT /PT AB < 33 ) $ "S.A.R.L. AU CAPITAL DE 100.000 F" 

61 PR I NT /P s PR I NT /P s PR INT /P"R. C. SEINE 61 B 2354" 

62 PR INT /P s PR INT /P"SIREN 612.023.349" 

65 PRINT/PCHR*< 16) sPRINT/Ps RETURN 

66 CQNS0LEC80 s PR INT" NOM DU TEXTE s "s A= 13 s C=As Y*=" " s D=16s B=Os GOS 

UB 1 0000 s N*= Y* s I F Z* =CHR* < 2 ) THEN66 

67 CONSDLECBO! PRINT"TEXTE SUR DISQUETTE s " s A=20s C=As Y*“" " s D=16 

: B=Os G0SUB10000: M*=Y*s IFZ*=CHR* <2) THEN66 

68 IFM*=" EFFACE "THENON ERROR G0T066S DELETEN*S G0T066 

69 PRINTCHR* (6) 5 s PRINTTAB <46) ! “ " 

70 PRINTTAB (46> S " " 

80 PRINTTAB <46) ; " " 

90 PRINTTAB (46) ; " " 

120 PR INT SPRINT s PRINTTAB* 39 ) î "MONTMORENCY, le " 

500 CURSDR46,0sA=45sA*=""!PRINTSTRING*(". " ,33) î :CURS0R45,0 

510 CURS0RA+ 1,0 SPRINT". " ; s GETZ*s IFZ*=" "THENCURSORA+1 , Os PRINTCHR* <31 ) ; t G0T0510 
520 IFZ*=CHR*(13)B0T0560 

530 IFZ*=CHR*(4)THENIFA<>45THENA*=LEFT*(A*,LEN(A*)-1) s CURSORA, Os PRINT" . . " > s A=A- 
1 s CURSQRA, O 

540 IFZ*=CHR*(4)G0T0510 

541 IFZ*=»CHR*(2)THEN67 
545 IFASC (Z*> <32SQTD5iO 
547 IFLEN(A*)=32G0T0510 

550 A*“A*+Z*s A=A+1 s CURSORA, Os PRINTZ*Î s G0T0510 

560 I F A*=" EFFACE " iHENGN ERROR G0T066S DELETEN** BQT066 

600 D=32 s CURS0R46 , 1 s A=45 s C=A s B= 1 s Y*= " " s PR I NTSTR I NS* < " . " , 33 > J s CURS0R45 , 1 s BOSUB 1 0 
000 s B*=Y*s I F Z*=CHR* < 2 ) THENCURSQR46 , 1 s PR I NTSTR ING* ( " . " , 33) ; s G0T0500 
700 CURS0R46 , 2 s A=45 s B=2 s C=A s Y*= " " s PR I NTSTR I NB* ( " . " , 33 ) ; s CURS0R45 , 2 s BOSUB 1 OOOO s C 
*=Y*s IFZ*=CHR* (2) THENCURS0R46, 2 s PR I NTSTR INB* < " . ",33> 5 s BOT0600 
800 D=32s CURS0R46, 3s A=45s B=3s C=As Y*=” " s PR I NTSTR INB* 1“ . " , 33 > ; s CURS0R45, 3s BOSUB 10 
000 s D*=Y*s IFZ*=CHR* <2) THENCURS0R46, 3s PRINTSTRING* < " . ",33) 5 5G0T0700 
900 D= 1 7 s CURS0R55 , 6 s A=54 s B=6 s C=A s Y*= " " s PR I NTSTR I NB* (".",18)55 CURS0R54 , 6 s GOSUB 1 0 
000s E*=Y*s IFZ*=CHR* (2) THENCURSOR55, 6s PRINTSTRING* <". ", 18) 5 « BOTOaOO 
1000 C 0 NSDLEC 80 S ON ERROR GOTO 1009 s R0PEN#1 , FD 15)1 , M* 

1002 F 0 RI=OTO 23 s INPUT#1 , A*s F0RJ=lTQ80s CURSQRJ-1 , I s PR INTMID* ( A* , J , 1 ) 5 s NEXTJ s NEXT 
is INPUT#1, A* s FOR J = 1T079 s CURSORJ-l, 24 s PR INTMID* (A*, J, 1 ) 5 sNEXTJ 

1003 CLOSE 

1009 CURSDRO, O 

1010 GETF*S IFF*=" "THENX=CSRHs Y=CSRVs G*=CHARAGTER* ( X , Y) 5CURS0RX , Ys PRINTCHR* (31 > 5 
s CURSOR X , Y s GOSUB 1 030 s GOTO 1 0 1 0 

1013 IF (ASL' (F*) >15) * (ASC (F*) <26) THEN50Û0 , 

1014 IFF*=CHR* ( 1 ) THEN20000 

1015 IFF*=CHR* (2) THEN30000 

1016 IFF*=CHR* (3) THEN40000 

1017 IFF*=CHR* (4) THEN50000 

1018 IF (Y=24) * ( X=78) THENPRINTF*; s CURSORO, Os G0TQ1010 

1019 I F ( Y < >24 ) * ( F*=CHR* (13)) THENCURSORO , Y+ 1 s GOTO 1010 

1 020 PR I NTF* 5 s GOTO 1010 

1030 IFG*=CHR* (O) THENPRINT" "5 s CURSORX , Ys PRINTCHR* (O) 5 s CURSDRX , Y s RETURN 
1040 PR INTG* 5 s CURSORX, Y s RETURN 
5000 GOSUB 1 0 s PR I NT /PT AB ( 45 > 5 A* 

5010 PRINT/PTAB (45) ; B* 

5020 PRINT/PTAB (45)5 C* 

5030 PR I NT /PT AB-C45 )-} D*- - ‘ 

5050 PRINT/P 

5060 PRINT/PTAB (38) 5 "MONTMORENCY, le " 5 E* 

5080 PR INT /P s PR INT /P s PR INT /P 

5090 COPY/Pi s PRINT/PCHR* (5) s IFN*=" "THEN5 

5091 ON ERROR G0T05092S DELETEN* 

5092 WDPEN# 1 , FD 1 S) 1 » N* 

6000 FOR I =0T024 s A*= " " s F0RJ=0T079 
6005 A*=A*+CHARACTER* (J , I ) 

60 10 NEXT J s PR I NT# 1 , A* s NE XT I s CLOSE s G0T05 

10000 CURSORA+1 , Bs PRINT" . " ! s GETZ*s IFZ*=" "THENCURSORA+1 , B s PRINTCHR* (31 ) 5 5 GOTO 100 


00 


-1) s CURSORA, Bs PRINT". . " 5 s A=A 


10010 IFZ*=CHR* (13) THENRETURN 

10020 IFZ*=CHR* (4) THENIFAC >CTHENY*=LEFT* (Y*, LEN (Y*) - 
-1 s CURSORA, B 

10025 IFZ*=CHR* (2) THENRETURN 
1 0030 I F Z *=CHR* ( -1 ) GOTO î 0000 
1 0035 I F ASC ( Z * ) < 32B0T0 1 0000 
10037 IFLEN (Y*) =DBOTO 10000 

10040 Y*=»Y*+Z*sA=A+15CURSORA,B5PRINTZ*5 s BOTOIOOOO 
20000 M\|PS)234, As IFA< >239THEN1010 

20005 X=CSRH s Y=CSRV s B*=CHARACTER* ( X , Y ) s CURSORX , Y s PR I NTCHR* ( 3 1 ) 5 s CURSORX , Y s FOR I = 
0T050 s NEXT s GOSUB 1 030 

20006 IFY=24THEN20000 

200 1 0 PR I NTCHR* <1)5* GQT020000 
30000 INPS>234, AslFA< >247THEN1010 

30005 X =CSRH s Y=CSRV s B*=CHARACTER* ( X , Y ) s CURSORX , Y s PR I NTCHR* ( 3 1 ) ; s CURSORX , Y s FOR I = 
0TQ50 s NE XT s GOSUB 1030 
30010 PRINTCHR* (2) 5 s G0T03OOÛ0 
40000 I NPSI234 , A s I FA< >191 THEN 1010 

40005 X=CSRH s Y=CSRV s G*=CHARACTER* ( X , Y ) s CURSORX , Y s PRINTCHR* ( 3 1 > 5 s CURSORX , Y s FOR I = 
0T050 s NE XT s GOSUB 1 030 


40006 I F ( Y=24 ) * ( X =7B ) THEN40000 
40010 PRINTCHR* (3) 5 s G0T040Û00 
50000 INP5>234, As IFA< >223THEN1010 
50005 X=CSRH5 Y=CSRVs B*=CHARACTER* ( 
0T050 S NE XTs GOSUB 1030 
500 1 0 PR I NTCHR* ( 4 ) ; s G0T050000 


Y) s CURSORX, Y s PRINTCHR* (31) J s CURSORX , Ys FORI= 


VVVVvNAVvAA/WWWVWWS/VVVVNAVvVvVvVv\AAAVAA/VVV\ 


MEM SYSTEM 

Un petite erreur a été commise dans un 
tableau précédent pour la ligne “Input 
Buffer Ptr”, due à une confusion entre 
le pointeur du buffer Input et le poin- 
teur du curseur dans ce même buffer. 
L’erreur est aujourd’hui réparée. De 
plus, la ligne “WAIT Counter” a été 
oubliée dans le bulletin n° 18, p. 34 et 
est donc republiée en son intégralité. 

J. F .V. 


n rriNiT-i on 

UIAIT Counter 
PREUIQUS OLP 6d 
BREAK flddr-ess 
ERROR iddress 
CAL- Ret. fldd 

X Buffet 

A , P . O . Count e r 
Punc-v . QPe . Hbr- 
ioP. Buff Cursor 
InPut Buffer Ptr, 
Data Stack Ptr 
Futnci. Stock Ptr 
Str'tnS Buff. Ptr 
Eunct ! on St ack 
Data Stack 


PC 1245/51^55- 
C6E5» C6E6 
7 C6F£,C6FF 
C702 > C703 
C706» C707 

C6B1.C6B2 

C6B5.C6B6 

F8BA,F8BB 

C6F2 

C6£A 

C6F1 _ 

C6F5 

C6F6 

C6F7 

F800 a F80F 
F848 a F87F 


PC 1260/61 

PC 1401/02 

PC 1350 

66E5> 66E6 

46E5» 46E6 

70B3.70B4 

6700» 6701 

4700,4701 

7498,7499 

6702» 6703 

4702,4703 

749A» 749B 

6704» 6705 

4704,4705 

749C» 749D 

6635,6636 

46B5» 46B6 

6F28» 6F21 

6639» 663A 

46B9,46BA 

70B5» 70B6 

6688,6681 

607D.607E 

70B0 û 70B2 

66F 2 

46F2 

6F 30 

66EA 

46EA 

6F38 

66F1 

46F1 

6F 2 A 

66F5 

46F5 

6F2D 

66F 6 

46F6 

6F2E 

66F7 

46F7 

6F 2F 

2880 a 288F 

6000 a 600F 

74A0 a 7 4 AF 

2080 a 28BF 

6010 a 6067 

7680 a 76BF 


PC 1450 .... 

5F40.5F41 
5F51» 5F52 
5F5E» 5F5F 
5F62 > 5F63 
5F28, 5F21.._ 
5F42.5F43 
707D, 707E 
5F 30 

5F 38 __ 

5F2A 
5F2D 
5F2E 
5F 2F 

7848 a 704F 
5DC0 a 5DFF__ 
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1 9 Micros-poches Duriez qui 
décrochent les exam’s jfû 


A PRES TESTS, Duriez 
vous les recommande. 

O TI 74 de Texas Instru- 
ments : 1250 F. Un tour de 
force ! Micro-poche basic de 
pointe ? synthèse de calculatrice 
scientifique et de micro- 
ordinateur aux performances 
pro (math, stat, langage 
Pascal). 

Outil puissant pour ingé- 
nieurs hommes de stats, de 
finances, étudiants. 

0 Les Grandes Classiques, 

très connues, très répandues, 
polyvalentes : math. stat. 

■ 2 programmables langage 
élémentaire Hewlett-Packard 

• HP 11C : 471 F • HP 15C : 
915 F. 

■ 2 calculatrices scientifiques 
programmables basic 

• Sharp PC 1401 : 790 F • 
Sharp PC 1402 : 990 F. 


Chez Duriez .* 
1500 Prix charter 


à prix 4 charter 


1 



y Mathématiques imprimante. 

sur micro-ordinateur 


«F La mémoire d’éléphant • 
Sharp PC 1600 : 3490 F ttc : 
40 pages d’anti-sèches intégra- 
bles (chut !) 80 Ko de mémoire 
vive, le record. 

• Branchable disquettes et 


5 financières program- 
mables. 

Chaque fois que vous placez 
ou retirez de F argent celui-ci 
vaut plus ou moins selon les 
taux d’intérêt et d’inflation. 
Donc, votre comptabilité est 
fausse ? 

Pas du tout ! Ces micros cal- 
culent votre rentabilité interne 
réelle avec valeurs présente et 
future annuités, cash flow, 
nombre de périodes, etc... 

• HP 12C de Hewlet- 
Packard : 915 F. 

• Sharp 1421 : 1175 F • 
Sharp 533 : 440 F • TI BA54 : 
390 F. 

• Et la nouvelle Star finan- 
cière HP 18C : 1590 F ttc. 


★★★★★★★★★★★★★★ 

O En première mondiale : 

Des micros scientifique à écran 

G raphique avec 422 et 486 pas 
e programmes fx-6.000G : 
690 F - fx-7.000G : 869 F de 


★★★★★★★★★★★★★: 

I — Index clignotant 


Casio. 

Entrez les équations : les 
courbes se dessinent sous vos 
yeux, superposées ou non. 
Erreurs faciles à réparer. Zoom 
à volonté ici ou là. 
★★★★★★★★★★★★★* 

• Demandez notice Duriez : 
Micro-News Sicob 1986 contre 
2 timbres à 2,20 F. 

Duriez 132, Bd St-Germain, 
Paris 6 e , M° Odéon. Ouvert 
Mardi au Samedi de 9 h 45 à 
19 heures. 




X =— 2 . 765957447 


• Catalogue général (mach. 
écr., répondeurs, téléph., 
dicteurs et tout le Bureau) 
3 timbres 2,20 F • Gratuits en 
magasin. 


M 

ADRESSE 


vous prie de bien vouloir lui faire parvenir 

□ Recueil(s) des n° 1 à 5 des bulletins SHARPENTIER 
au prix de 100 F* 

□ Bulletin(s) SHARPENTIER n° 6 □, 7 □, 8 □, 9 □, 10 □ 
au prix de 20 F chacun* 

□ Bulletin(s) SHARPENTIER n° 11 □, 12 □, 13 □ 
au prix de 25 F chacun* 

□ Bulletin(s) SHARPENTIER n° 14 □, 15 □, 16 □, 17 épuisé, 18 □, 19 □ 
au prix de 30 F chacun* 

□ Manuel(s) Langage Machine PC 1500 □, PC 1251 □. 
au prix de 180 F chacun* 

□ Manuel de Référence MZ 800 au prix de 240 F l'un* 

* Port forfaitaire : 20 F 

Ci-joint un chèque de F à l’ordre du 

CLUB DES SHARPENTIERS » 

Date Signature 







Édito 

Nouveautés 
Astuces 1 et 2 
Puissance des PC 
Simplification de fraction 
Initiation LH-5801 
Plot X,Y 
List RSV 

The asteroid adventure 
Inverse partiel 
Dez hex 

Il était une fois un PC 

Initiation LM ESR-H 

Résultats du concours “Date” 

Faites des économies 

Récursivité 

3 D Histo 

On 

Old 

Errata 

Modifications du K. Basic 
Les caractères de contrôle 
Éditeur de textes 
Moniteur 1500 
MEM System 
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